diff options
| author | joe <joe@jerkface.net> | 2017-07-14 23:50:39 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-07-14 23:50:39 -0400 |
| commit | f5186fa528bf9c79533d4c4ee1a3846eab4fc6be (patch) | |
| tree | 247d8eb8411c671c17546777740e010e2b0155b7 /src/Data/Torrent.hs | |
| parent | 31d72c02c1bd3574042ac3b67eb4d28d87d187df (diff) | |
Removed ip polymorphism from PeerAddr type.
Diffstat (limited to 'src/Data/Torrent.hs')
| -rw-r--r-- | src/Data/Torrent.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Data/Torrent.hs b/src/Data/Torrent.hs index b3bf0ec7..73422a04 100644 --- a/src/Data/Torrent.hs +++ b/src/Data/Torrent.hs | |||
| @@ -239,10 +239,12 @@ instance BEncode InfoHash where | |||
| 239 | fromBEncode be = InfoHash <$> fromBEncode be | 239 | fromBEncode be = InfoHash <$> fromBEncode be |
| 240 | #endif | 240 | #endif |
| 241 | 241 | ||
| 242 | #if 0 | ||
| 242 | instance TableKey KMessageOf InfoHash where | 243 | instance TableKey KMessageOf InfoHash where |
| 243 | toNodeId = either (error msg) id . S.decode . S.encode | 244 | toNodeId = either (error msg) id . S.decode . S.encode |
| 244 | where -- TODO unsafe coerse? | 245 | where -- TODO unsafe coerse? |
| 245 | msg = "tableKey: impossible" | 246 | msg = "tableKey: impossible" |
| 247 | #endif | ||
| 246 | 248 | ||
| 247 | 249 | ||
| 248 | -- | Convert to\/from raw bytestring. (no encoding) | 250 | -- | Convert to\/from raw bytestring. (no encoding) |