hlint suggestions.
commitf4e42e28cc118b7c7fa14a930f4d3339c79660ec
authorKazu Yamamoto <kazu@iij.ad.jp>
dateFri 18 Dec 2015, 09:53 (11 years ago)
parent356fa31
warp/Network/Wai/Handler/Warp/FileInfoCache.hs+1−1
@@ -86,7 +86,7 @@ withFileInfoCache :: Int -> ((FilePath -> IO FileInfo) -> IO a) -> IO a
8686withFileInfoCache 0 action = action getInfo
8787withFileInfoCache duration action = E.bracket (initialize duration)
8888 terminate
89− (\c -> action (getAndRegisterInfo c))
89+ (action . getAndRegisterInfo)
9090
9191initialize :: Int -> IO FileInfoCache
9292initialize duration = mkReaper settings
warp/Network/Wai/Handler/Warp/HTTP2/Types.hs+1−1
@@ -214,7 +214,7 @@ search (StreamTable ref) k = M.lookup k <$> readIORef ref
214214{-# INLINE enqueueWhenReady #-}
215215enqueueWhenReady :: STM () -> PriorityTree Output -> Output -> IO ()
216216enqueueWhenReady wait outQ out = do
217− atomically $ wait
217+ atomically wait
218218 enqueueOutput outQ out
219219
220220{-# INLINE enqueueOutput #-}