Peer: cosmetic indentation fixes

diff --git a/src/FuncTorrent/Peer.hs b/src/FuncTorrent/Peer.hs
index cfefb1132e69c69c5c13845aaca358085042207a..9f1aa2ac04f633831ff4691642f89036f412a9ba 100644 (file)
--- a/src/FuncTorrent/Peer.hs
+++ b/src/FuncTorrent/Peer.hs
@@ -182,22 +182,22 @@ msgLoop pieceStatus file = do
 downloadPiece :: Handle -> Integer -> Integer -> IO ByteString
 downloadPiece h index pieceLength = do
   let chunks = splitNum pieceLength 16384
-  liftM concat $ forM (zip [0..] chunks) (\(i, pLen) -> do
-                                             sendMsg h (RequestMsg index (i*pLen) pLen)
-                                             putStrLn $ "--> " ++ "RequestMsg for Piece "
-                                               ++ show index ++ ", part: " ++ show i ++ " of length: "
-                                               ++ show pLen
-                                             msg <- getMsg h
-                                             case msg of
-                                              PieceMsg index begin block -> do
-                                                putStrLn $ " <-- PieceMsg for Piece: "
-                                                  ++ show index
-                                                  ++ ", offset: "
-                                                  ++ show begin
-                                                return block
-                                              _ -> do
-                                                putStrLn "ignoring irrelevant msg"
-                                                return empty)
+  concat `liftM` forM (zip [0..] chunks) (\(i, pLen) -> do
+                                              sendMsg h (RequestMsg index (i*pLen) pLen)
+                                              putStrLn $ "--> " ++ "RequestMsg for Piece "
+                                                ++ show index ++ ", part: " ++ show i ++ " of length: "
+                                                ++ show pLen
+                                              msg <- getMsg h
+                                              case msg of
+                                                PieceMsg index begin block -> do
+                                                  putStrLn $ " <-- PieceMsg for Piece: "
+                                                    ++ show index
+                                                    ++ ", offset: "
+                                                    ++ show begin
+                                                  return block
+                                                _ -> do
+                                                  putStrLn "ignoring irrelevant msg"
+                                                  return empty)
 
 verifyHash :: ByteString -> ByteString -> Bool
 verifyHash bs pieceHash =