@@ -46,6 +46,7 @@ import Data.Typeable (Typeable)
4646
4747import Data.Enumerator (($$), (>>==))
4848import qualified Data.Enumerator as E
49+import qualified Data.Enumerator.List as EL
4950import Blaze.ByteString.Builder.Enumerator (builderToByteString)
5051import Blaze.ByteString.Builder.HTTP
5152 (chunkedTransferEncoding, chunkedTransferTerminator)
@@ -117,7 +118,7 @@ takeLine :: Int
117118 -> ([ByteString] -> [ByteString])
118119 -> E.Iteratee ByteString IO ByteString
119120takeLine len front = do
120− mbs <- E.head
121+ mbs <- EL.head
121122 case mbs of
122123 Nothing -> E.throwError IncompleteHeaders
123124 Just bs -> do