From 8d0ba8be694f46c7b78cece0ecca4d17faa94cb6 Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan Date: Mon, 16 Feb 2015 17:46:46 +0530 Subject: [PATCH] misc changes to fix warning --- src/Peer.hs | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) 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 + } -- 2.45.2