From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
Date: Mon, 16 Feb 2015 12:16:46 +0000 (+0530)
Subject: misc changes to fix warning
X-Git-Url: https://git.rkrishnan.org/?a=commitdiff_plain;h=8d0ba8be694f46c7b78cece0ecca4d17faa94cb6;p=functorrent.git

misc changes to fix warning
---

diff --git a/src/Peer.hs b/src/Peer.hs
index 020f596..c7ebca3 100644
--- a/src/Peer.hs
+++ b/src/Peer.hs
@@ -6,7 +6,6 @@ import qualified Data.Map as M
 import qualified Data.ByteString.Char8 as BC
 import qualified Data.ByteString.Base16 as B16
 import qualified Data.List as L
-import Control.Applicative ((<$>))
 
 data Peer = Peer { ip :: String
                  , port :: Integer
@@ -30,13 +29,21 @@ getPeerResponse body = case (Benc.decode body) of
                           let (Just (Benc.Bint i)) = M.lookup (Benc.Bstr (BC.pack "lookup")) peerM
                               (Benc.Bstr peersBS) = peerM M.! (Benc.Bstr (BC.pack "peers"))
                               pl = map (\peer -> let (ip', port') = BC.splitAt 4 peer
-                                                 in Peer { ip = toIPNum ip',
-                                                           port =  toPortNum port'
+                                                 in Peer { ip = toIPNum ip'
+                                                         , port =  toPortNum port'
                                                          })
                                    (U.splitN 6 peersBS)
-                          in PeerResponse { interval = Just i, peers = pl }
+                          in PeerResponse { interval = Just i
+                                          , peers = pl
+                                          , complete = Nothing
+                                          , incomplete = Nothing
+                                          }
                           where toPortNum = read . ("0x" ++) . BC.unpack . B16.encode
                                 toIPNum = (L.intercalate ".") .
                                           map (show . toInt . ("0x" ++) . BC.unpack) .
                                           (U.splitN 2) . B16.encode
-                        Left _ -> PeerResponse { peers = [] }
+                        _ -> PeerResponse { interval = Nothing
+                                          , peers = []
+                                          , complete = Nothing
+                                          , incomplete = Nothing
+                                          }