git.iko.soy/typeable/wai
on master help sign in
enumerator 0.4.5
215b4b4Michael Snoyman
Network/Wai/Handler/Warp.hs+2−1
compare with master
unifiedsplit
@@ -46,6 +46,7 @@ import Data.Typeable (Typeable)
46
46
47import Data.Enumerator (($$), (>>==))
47import Data.Enumerator (($$), (>>==))
48import qualified Data.Enumerator as E
48import qualified Data.Enumerator as E
49+import qualified Data.Enumerator.List as EL
49import Blaze.ByteString.Builder.Enumerator (builderToByteString)
50import Blaze.ByteString.Builder.Enumerator (builderToByteString)
50import Blaze.ByteString.Builder.HTTP
51import Blaze.ByteString.Builder.HTTP
51 (chunkedTransferEncoding, chunkedTransferTerminator)
52 (chunkedTransferEncoding, chunkedTransferTerminator)
@@ -117,7 +118,7 @@ takeLine :: Int
117 -> ([ByteString] -> [ByteString])
118 -> ([ByteString] -> [ByteString])
118 -> E.Iteratee ByteString IO ByteString
119 -> E.Iteratee ByteString IO ByteString
119takeLine len front = do
120takeLine len front = do
120− mbs <- E.head
121+ mbs <- EL.head
121 case mbs of
122 case mbs of
122 Nothing -> E.throwError IncompleteHeaders
123 Nothing -> E.throwError IncompleteHeaders
123 Just bs -> do
124 Just bs -> do
warp.cabal+1−1
@@ -22,7 +22,7 @@ Library
22 , wai >= 0.3.0 && < 0.4
22 , wai >= 0.3.0 && < 0.4
23 , blaze-builder-enumerator >= 0.2 && < 0.3
23 , blaze-builder-enumerator >= 0.2 && < 0.3
24 , transformers >= 0.2 && < 0.3
24 , transformers >= 0.2 && < 0.3
25− , enumerator >= 0.4 && < 0.5
25+ , enumerator >= 0.4.5 && < 0.5
26 , blaze-builder >= 0.2.1.4 && < 0.3
26 , blaze-builder >= 0.2.1.4 && < 0.3
27 , sendfile >= 0.7.2 && < 0.8
27 , sendfile >= 0.7.2 && < 0.8
28 if flag(network-bytestring)
28 if flag(network-bytestring)