cleanup according to hlint.
commit998d8cc0d769cb7bf52e77493e656a7c92d8f154
authorKazu Yamamoto <kazu@iij.ad.jp>
dateWed 17 Oct 2012, 15:42 (14 years ago)
parente30059f
warp/Network/Wai/Handler/Warp/FdCache.hs+2−2
@@ -114,7 +114,7 @@ getFd mfc path = look mfc path key >>= getFd'
114114 getFd' Nothing = do
115115 ent@(FdEntry _ fd mst) <- newFdEntry path
116116 update mfc (insert key ent)
117− return $ (fd, refresh mst)
117+ return (fd, refresh mst)
118118 getFd' (Just (FdEntry _ fd mst)) = do
119119 refresh mst
120− return $ (fd, refresh mst)
120+ return (fd, refresh mst)
warp/Network/Wai/Handler/Warp/Response.hs−1
@@ -1,6 +1,5 @@
11{-# LANGUAGE OverloadedStrings #-}
22{-# LANGUAGE ScopedTypeVariables #-}
3−{-# LANGUAGE BangPatterns #-}
43{-# LANGUAGE CPP #-}
54
65module Network.Wai.Handler.Warp.Response (
warp/Network/Wai/Handler/Warp/Run.hs+1−2
@@ -1,6 +1,5 @@
11{-# LANGUAGE CPP #-}
22{-# LANGUAGE ScopedTypeVariables #-}
3−{-# LANGUAGE CPP #-}
43
54module Network.Wai.Handler.Warp.Run where
65
@@ -154,7 +153,7 @@ runSettingsConnection set getConn app = do
154153 restore $ serveConnection set cleaner port app conn addr
155154 cleanup
156155 cleanup = connClose conn >> T.cancel th >> onClose
157− handle onE $ (serve `onException` cleanup)
156+ handle onE (serve `onException` cleanup)
158157 where
159158 -- FIXME: only IOEception is caught. What about other exceptions?
160159 getConnLoop = getConn `catch` \(e :: IOException) -> do
warp/Network/Wai/Handler/Warp/Timeout.hs+1−2
@@ -14,8 +14,7 @@ module Network.Wai.Handler.Warp.Timeout (
1414
1515import Control.Concurrent (forkIO, threadDelay, myThreadId, killThread)
1616import qualified Control.Exception as E
17−import Control.Monad (forever)
18−import Control.Monad (void)
17+import Control.Monad (forever, void)
1918import qualified Data.IORef as I
2019import System.IO.Unsafe (unsafePerformIO)
2120