summaryrefslogtreecommitdiff
path: root/src/Data/Torrent.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Data/Torrent.hs')
-rw-r--r--src/Data/Torrent.hs2
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
242instance TableKey KMessageOf InfoHash where 243instance 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)