From 05da0bad36f4d798c8ad8d9c158dd8f0cdb45c01 Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
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.45.2