refactoring

[functorrent.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index 24bd9a99f88236470f9e17ad5e18267b31194552..fa465de3d1b5261aceddc03c674f7e4af8515a14 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -36,6 +36,6 @@ main = do
                Nothing -> putStrLn "parse error"
                Just m -> do
                  body <- BC.pack <$> T.connect (MInfo.announce m) (T.prepareRequest d genPeerId)
-                 putStrLn (show (P.getPeers body))
+                 putStrLn (show (P.getPeers (P.getPeerResponse body)))
    Left e -> printError e
   putStrLn "done"