more hlint fixes

[functorrent.git] / src / FuncTorrent / FileSystem.hs

diff --git a/src/FuncTorrent/FileSystem.hs b/src/FuncTorrent/FileSystem.hs
index 5568b77d00e754d452fe5e56933ab9eb812f016e..7c95c1e2ffcffe330681c626bbf21c95e9c63d8d 100644 (file)
--- a/src/FuncTorrent/FileSystem.hs
+++ b/src/FuncTorrent/FileSystem.hs
@@ -86,7 +86,7 @@ run' pieceMap c handle = do
           VerifyPiece n var -> do
             isHashValid <- verifyPiece n
             putMVar var isHashValid
-          GetStats var -> do
+          GetStats var ->
             putMVar var stats
       readPiece n len' = do
         let offset = pieceNumToOffset pieceMap n