git.iko.soy/typeable/wai
on master help sign in
minor fix.
7c486afKazu Yamamoto
warp/Network/Wai/Handler/Warp/FdCache.hs+2−2
compare with master
unifiedsplit
@@ -14,7 +14,7 @@ import Data.IORef
14import Network.Wai.Handler.Warp.MultiMap
14import Network.Wai.Handler.Warp.MultiMap
15import System.Posix.IO
15import System.Posix.IO
16import System.Posix.Types
16import System.Posix.Types
17−import System.IO.Unsafe
17+import System.IO.Unsafe -- FIXME should remove at releasing
18
18
19----------------------------------------------------------------
19----------------------------------------------------------------
20
20
@@ -41,7 +41,7 @@ inactive (MutableStatus ref) = writeIORef ref Inactive
41
41
42----------------------------------------------------------------
42----------------------------------------------------------------
43
43
44−data FdEntry = FdEntry FilePath Fd MutableStatus deriving Show
44+data FdEntry = FdEntry !FilePath !Fd !MutableStatus deriving Show
45
45
46newFdEntry :: FilePath -> IO FdEntry
46newFdEntry :: FilePath -> IO FdEntry
47newFdEntry path = FdEntry path
47newFdEntry path = FdEntry path
warp/Network/Wai/Handler/Warp/MultiMap.hs+1−1
@@ -190,7 +190,7 @@ pruneWith t run = fromSortedList <$> inorder t []
190
190
191----------------------------------------------------------------
191----------------------------------------------------------------
192
192
193−-- O(N) where N is the size of the second argument
193+-- O(N log N) where N is the size of the second argument
194merge :: Ord k => MMap k v -> MMap k v -> MMap k v
194merge :: Ord k => MMap k v -> MMap k v -> MMap k v
195merge base m = foldl' ins base xs
195merge base m = foldl' ins base xs
196 where
196 where