X-Git-Url: https://git.rkrishnan.org/?a=blobdiff_plain;f=src%2FMain.hs;h=3aa65874efa581464d016899bcfcaf60356ae591;hb=b5db51181ecc6fc00f8f2b6a51cf699d35e5c1eb;hp=867e96268a8e787a2d503666365eabd067025827;hpb=045dd2b47a76006bfa610cc26f5aceb63877ba02;p=functorrent.git diff --git a/src/Main.hs b/src/Main.hs index 867e962..3aa6587 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -55,5 +55,5 @@ main = do Right peerList -> do log $ "Peers List : " ++ (show . peers $ peerList) let p1 = head (peers peerList) - handlePeerMsgs p1 m peerId log + handlePeerMsgs p1 m peerId logStop logR