diff options
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) |