module Main where
import Prelude hiding (readFile)
-import Data.ByteString.Char8 (ByteString, readFile)
+
+import Data.ByteString (ByteString, readFile)
import Data.Map.Strict (fromList)
import Test.Tasty
import FuncTorrent.Bencode (decode, BVal(..))
import FuncTorrent.Metainfo (Info(..), Metainfo(..), mkMetaInfo)
import FuncTorrent.Peer (Peer(..))
-import FuncTorrent.Tracker (TrackerResponse(..), peers, mkTrackerResponse)
+import FuncTorrent.Tracker
-- Parsed .torrent file
file :: BVal
lengthInBytes = 12,
md5sum = Nothing
},
+ infoHash = "\249\SYN\145=\129\182\205\\\181v0\144\154\EM\150f\152\221]}",
announceList = ["http://9.rarbg.com:2710/announce"],
creationDate = Just 1428717851,
comment = Just "hello world",