get rid of (some of) the compiler warnings

[functorrent.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index 867e96268a8e787a2d503666365eabd067025827..3aa65874efa581464d016899bcfcaf60356ae591 100644 (file)
--- 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