Permalink
Browse files

Allow empty HTTP header values

  • Loading branch information...
1 parent 9c80b7e commit 920a7f913a2c85ea49f6418b50e33cf5cf66afd5 @snoyberg committed Oct 16, 2010
Showing with 3 additions and 3 deletions.
  1. +2 −2 Network/HTTP/Enumerator/HttpParser.hs
  2. +1 −1 http-enumerator.cabal
@@ -5,7 +5,7 @@ module Network.HTTP.Enumerator.HttpParser
, iterNewline
) where
-import Prelude hiding (take)
+import Prelude hiding (take, takeWhile)
import Data.Attoparsec
import Data.Attoparsec.Enumerator
import Data.Enumerator (Iteratee)
@@ -21,7 +21,7 @@ parseHeader = do
k <- takeWhile1 notNewlineColon
_ <- word8 58 -- colon
skipWhile isSpace
- v <- takeWhile1 notNewline
+ v <- takeWhile notNewline
newline
return (k, v)
View
@@ -1,5 +1,5 @@
name: http-enumerator
-version: 0.2.0.1
+version: 0.2.0.2
license: BSD3
license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com>

0 comments on commit 920a7f9

Please sign in to comment.