From 05da0bad36f4d798c8ad8d9c158dd8f0cdb45c01 Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan Date: Fri, 29 May 2015 07:32:08 +0530 Subject: [PATCH] misc formatting --- src/FuncTorrent/Peer.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/FuncTorrent/Peer.hs b/src/FuncTorrent/Peer.hs index d9ff929..d04d886 100644 --- a/src/FuncTorrent/Peer.hs +++ b/src/FuncTorrent/Peer.hs @@ -174,7 +174,7 @@ msgLoop h pieceHash = putStrLn $ "got a " ++ show msg case msg of BitFieldMsg bss -> do - let pieceList = bitfieldToList (unpack bss) 0 - putStrLn (show pieceList) - -- doenload each of the piece + let pieceList = bitfieldToList (unpack bss) + putStrLn (show pieceList) + -- download each of the piece in order _ -> putStrLn (show msg) -- 2.37.2