more hlint fixes
authorRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Sat, 25 Jun 2016 04:51:22 +0000 (10:21 +0530)
committerRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Sat, 25 Jun 2016 04:51:22 +0000 (10:21 +0530)
src/FuncTorrent/FileSystem.hs
src/FuncTorrent/Network.hs
src/FuncTorrent/Peer.hs
src/FuncTorrent/PeerMsgs.hs
src/FuncTorrent/Utils.hs

index 5568b77d00e754d452fe5e56933ab9eb812f016e..7c95c1e2ffcffe330681c626bbf21c95e9c63d8d 100644 (file)
@@ -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
index ca4b6d9f8fe6bd02aba6db0b88df38743304e6de..99243f64ecb67099291d68bbb60fe1b46302853c 100644 (file)
@@ -40,6 +40,6 @@ sendGetRequest :: String -> [(String, ByteString)] -> IO ByteString
 sendGetRequest url args = simpleHTTP (defaultGETRequest_ url') >>= getResponseBody
     where url' = case parseURI url'' of
                    Just x -> x
-                   _ -> error $ "Bad tracker URL: " ++ (show url'')
+                   _ -> error $ "Bad tracker URL: " ++ show url''
           qstr = mkParams args
           url'' = unpack $ concat [pack url, "?", qstr]
index 63aaa5afe9ede340862383318370616a8c9813e8..c833c061bd4285be88f3754e62e5b83774c1d806 100644 (file)
@@ -166,7 +166,7 @@ msgLoop pieceStatus msgchannel = do
         NotInterestedMsg -> do
           modify (\st' -> st' {heInterested = False})
           msgLoop pieceStatus msgchannel
-        CancelMsg _ _ _ -> -- check if valid index, begin, length
+        CancelMsg {} -> -- check if valid index, begin, length
           msgLoop pieceStatus msgchannel
         PortMsg _ ->
           msgLoop pieceStatus msgchannel
@@ -175,7 +175,7 @@ msgLoop pieceStatus msgchannel = do
           let pieceStatus' = updatePieceAvailability pieceStatus p [idx]
           msgLoop pieceStatus' msgchannel
         _ -> do
-          liftIO $ putStrLn ".. not doing anything with the msg"
+          liftIO $ putStrLn ".. not doing anything with the msg"
           msgLoop pieceStatus msgchannel
         -- No need to handle PieceMsg and RequestMsg here.
 
index ff3b43579906c6951378258fbfc0b8bea456e80a..f597ed8c6ee676b3581b25e96a264d7fa35c2fd4 100644 (file)
@@ -86,9 +86,7 @@ instance Binary PeerMsg where
                                           bfListLen = length bfList
              RequestMsg i o l -> do putWord32be 13
                                     putWord8 6
-                                    putWord32be (fromIntegral i)
-                                    putWord32be (fromIntegral o)
-                                    putWord32be (fromIntegral l)
+                                    putIndexOffsetLength i o l
              PieceMsg i o b -> do putWord32be $ fromIntegral (9 + blocklen)
                                   putWord8 7
                                   putWord32be (fromIntegral i)
@@ -98,12 +96,15 @@ instance Binary PeerMsg where
                                           blocklen = length blockList
              CancelMsg i o l -> do putWord32be 13
                                    putWord8 8
-                                   putWord32be (fromIntegral i)
-                                   putWord32be (fromIntegral o)
-                                   putWord32be (fromIntegral l)
+                                   putIndexOffsetLength i o l
              PortMsg p -> do putWord32be 3
                              putWord8 9
                              putWord16be (fromIntegral p)
+    where putIndexOffsetLength i o l = do
+            putWord32be (fromIntegral i)
+            putWord32be (fromIntegral o)
+            putWord32be (fromIntegral l)
+            
   get = do
     l <- getWord32be
     msgid <- getWord8
@@ -112,15 +113,15 @@ instance Binary PeerMsg where
      1 -> return UnChokeMsg
      2 -> return InterestedMsg
      3 -> return NotInterestedMsg
-     4 -> liftM (HaveMsg . fromIntegral) getWord32be
-     5 -> liftM (BitFieldMsg . pack) (replicateM (fromIntegral l - 1) getWord8)
+     4 -> fmap (HaveMsg . fromIntegral) getWord32be
+     5 -> fmap (BitFieldMsg . pack) (replicateM (fromIntegral l - 1) getWord8)
      6 -> liftA3 RequestMsg getInteger getInteger getInteger
        where getInteger = fromIntegral <$> getWord32be
      7 -> liftA3 PieceMsg getInteger getInteger (pack  <$> replicateM (fromIntegral l - 9) getWord8)
        where getInteger = fromIntegral <$> getWord32be
      8 -> liftA3 CancelMsg getInteger getInteger getInteger
        where getInteger = fromIntegral <$> getWord32be
-     9 -> liftM (PortMsg . fromIntegral) getWord16be
+     9 -> fmap (PortMsg . fromIntegral) getWord16be
      _ -> error ("unknown message ID: " ++ show msgid)
 
 getMsg :: Handle -> IO PeerMsg
index be4e15b55ac9ec518b14a3ab8e0933a85bc3ea28..30fd160408b55119bdef8d8d8537dba6d22c2640 100644 (file)
@@ -60,7 +60,7 @@ createDummyFile :: FilePath -> Int -> IO (Either IOException ())
 createDummyFile path size = do
   dfe <- doesFileExist path
   if not dfe
-    then do
+    then
     try $ writeFile path (BC.replicate size '\0')
     else
     return $ Right ()