FileSystem: typo updateState -> updateStats
authorRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Tue, 15 Dec 2015 17:18:23 +0000 (22:48 +0530)
committerRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Tue, 15 Dec 2015 17:18:23 +0000 (22:48 +0530)
src/FuncTorrent/FileSystem.hs

index bfaf674af4705dde49054c3e89e92d349601bbfb..56ec41edda80af584ca8dee0ea0d1f7c3ff0df59 100644 (file)
@@ -49,7 +49,7 @@ run' :: PieceMap -> MsgChannel -> Handle -> StateT Stats IO ()
 run' pieceMap c handle = do
   msg <- liftIO recvMsg
   liftIO $ sendResponse msg
-  updateState msg 
+  updateStats msg
   where
     recvMsg = readChan c
     sendResponse msg =
@@ -74,11 +74,11 @@ run' pieceMap c handle = do
           len'   = len (pieceMap ! n)
       bs' <- readFileAtOffset handle offset len'
       return $ verifyHash bs' hash'
-    updateState (ReadPiece _ l _) =
+    updateStats (ReadPiece _ l _) =
       modify (\st -> st {bytesRead = bytesRead st + l})
-    updateState (WritePiece (Piece _ bs)) =
+    updateStats (WritePiece (Piece _ bs)) =
       modify (\st -> st {bytesWritten = bytesWritten st + fromIntegral (BS.length bs)})
-    updateState _ = modify id
+    updateStats _ = modify id
 
 pieceMapFromFile :: FilePath -> Integer -> PieceMap -> IO PieceMap
 pieceMapFromFile filePath fileLen pieceMap = do