git.iko.soy/typeable/wai
on master help sign in
hlint suggestions.
f4e42e2Kazu Yamamoto
warp/Network/Wai/Handler/Warp/FileInfoCache.hs+1−1
compare with master
unifiedsplit
@@ -86,7 +86,7 @@ withFileInfoCache :: Int -> ((FilePath -> IO FileInfo) -> IO a) -> IO a
86withFileInfoCache 0 action = action getInfo
86withFileInfoCache 0 action = action getInfo
87withFileInfoCache duration action = E.bracket (initialize duration)
87withFileInfoCache duration action = E.bracket (initialize duration)
88 terminate
88 terminate
89− (\c -> action (getAndRegisterInfo c))
89+ (action . getAndRegisterInfo)
90
90
91initialize :: Int -> IO FileInfoCache
91initialize :: Int -> IO FileInfoCache
92initialize duration = mkReaper settings
92initialize 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
214{-# INLINE enqueueWhenReady #-}
214{-# INLINE enqueueWhenReady #-}
215enqueueWhenReady :: STM () -> PriorityTree Output -> Output -> IO ()
215enqueueWhenReady :: STM () -> PriorityTree Output -> Output -> IO ()
216enqueueWhenReady wait outQ out = do
216enqueueWhenReady wait outQ out = do
217− atomically $ wait
217+ atomically wait
218 enqueueOutput outQ out
218 enqueueOutput outQ out
219
219
220{-# INLINE enqueueOutput #-}
220{-# INLINE enqueueOutput #-}