7c486af · typeable/wai

git.iko.soy/typeable/wai

minor fix.

commit7c486afd62fbbf7d7326369030051b71898d6b9e authorKazu Yamamoto <kazu@iij.ad.jp> dateThu 6 Sep 2012, 22:51 (14 years ago) parentf273fe6

2 files changed+3−3

unifiedsplit

warp/Network/Wai/Handler/Warp/FdCache.hs+2−2

@@ -14,7 +14,7 @@ import Data.IORef

1414import Network.Wai.Handler.Warp.MultiMap

1515import System.Posix.IO

1616import System.Posix.Types

17−import System.IO.Unsafe

17+import System.IO.Unsafe -- FIXME should remove at releasing

1818

1919----------------------------------------------------------------

2020

@@ -41,7 +41,7 @@ inactive (MutableStatus ref) = writeIORef ref Inactive

4141

4242----------------------------------------------------------------

4343

44−data FdEntry = FdEntry FilePath Fd MutableStatus deriving Show

44+data FdEntry = FdEntry !FilePath !Fd !MutableStatus deriving Show

4545

4646newFdEntry :: FilePath -> IO FdEntry

4747newFdEntry path = FdEntry path

warp/Network/Wai/Handler/Warp/MultiMap.hs+1−1

@@ -190,7 +190,7 @@ pruneWith t run = fromSortedList <$> inorder t []

190190

191191----------------------------------------------------------------

192192

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

194194merge :: Ord k => MMap k v -> MMap k v -> MMap k v

195195merge base m = foldl' ins base xs

196196 where