makeContactFile (filePath, infoHash, seed) = do
  Right t <- fmap readTorrent $ BSL.readFile $ filePath
  return $ FakeFile {seed = seed, torrentFile = t
                    , infoHash = fromJust $ textToInfoHash infoHash}
makeContactFile (filePath, infoHash, seed) = do
  Right t <- fmap readTorrent $ BSL.readFile $ filePath
  return $ FakeFile {seed = seed, torrentFile = t
                    , infoHash = fromJust $ textToInfoHash infoHash}
makeContactFile (filePath, infoHash, seed) = do
  Right t <- fmap readTorrent $ BSL.readFile $ filePath
  return $ FakeFile {seed = seed, torrentFile = t
                    , infoHash = fromJust $ textToInfoHash infoHash}