Move things around

[functorrent.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index b7888e0ca6dca5598b042c3279a91259c49d1816..3537e48865c4d08d3a91f9f7908e01bd8554b7be 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -11,8 +11,8 @@ import Text.ParserCombinators.Parsec (ParseError)
 import FuncTorrent.Bencode (decode, BVal(..))
 import FuncTorrent.Logger (initLogger, logMessage, logStop)
 import FuncTorrent.Metainfo (Info(..), Metainfo(..), mkMetaInfo)
-import FuncTorrent.Peer (peers, mkPeerResp, handShakeMsg)
-import FuncTorrent.Tracker (connect, prepareRequest)
+import FuncTorrent.Peer (handShakeMsg)
+import FuncTorrent.Tracker (connect, prepareRequest, peers, mkTrackerResponse)
 
 logError :: ParseError -> (String -> IO ()) -> IO ()
 logError e logMsg = logMsg $ "parse error: \n" ++ show e
@@ -64,7 +64,7 @@ main = do
 
               case decode response of
                 Right trackerInfo ->
-                    case mkPeerResp trackerInfo of
+                    case mkTrackerResponse trackerInfo of
                       Right peerResp ->
                           logMsg $ "Peers List : " ++ (show . peers $ peerResp)
                       Left e -> logMsg $ "Error" ++ unpack e