emailparse 0.2.0.7 → 0.2.0.8
raw patch · 3 files changed
+11/−11 lines, 3 filesdep ~HUnitdep ~QuickCheckdep ~base
Dependency ranges changed: HUnit, QuickCheck, base, tasty-quickcheck, time
Files
- emailparse.cabal +8/−8
- src/Network/Mail/Parse/Decoders/BodyDecoder.hs +1/−1
- src/Network/Mail/Parse/Parsers/Header.hs +2/−2
emailparse.cabal view
@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/ name: emailparse-version: 0.2.0.7+version: 0.2.0.8 synopsis: An email parser that will parse everything --description: license: BSD3@@ -31,7 +31,7 @@ Network.Mail.Parse.Parsers.Utils -- other-modules: -- other-extensions:- build-depends: base >=4.9 && <4.10,+ build-depends: base >=4.10 && <4.11, bytestring == 0.10.*, attoparsec == 0.13.*, word8 == 0.1.*,@@ -40,7 +40,7 @@ MissingH == 1.4.*, either == 4.4.*, text-icu == 0.7.*,- time == 1.6.*,+ time == 1.8.*, strptime == 1.0.*, either-unwrap == 1.1.* hs-source-dirs: src@@ -64,7 +64,7 @@ type: exitcode-stdio-1.0 main-is: main.hs hs-source-dirs: test, src- build-depends: base >=4.9 && <4.10,+ build-depends: base >=4.10 && <4.11, bytestring == 0.10.*, attoparsec == 0.13.*, word8 == 0.1.*,@@ -73,15 +73,15 @@ MissingH == 1.4.*, either == 4.4.*, text-icu == 0.7.*,- time == 1.6.*,+ time == 1.8.*, strptime == 1.0.*, either-unwrap == 1.1.*, tasty == 0.11.*,- HUnit == 1.5.*,- QuickCheck == 2.9.*,+ HUnit == 1.6.*,+ QuickCheck == 2.10.*, tasty-hunit == 0.9.*,- tasty-quickcheck == 0.8.*,+ tasty-quickcheck == 0.9.*, mtl == 2.2.* c-sources: csrc/codec.c include-dirs: csrc
src/Network/Mail/Parse/Decoders/BodyDecoder.hs view
@@ -7,7 +7,7 @@ import Data.Either.Combinators (mapLeft, fromRight') import Data.Either.Utils (maybeToEither)-import Data.Either (isRight, rights)+import Data.Either (isRight) import Data.List (find)
src/Network/Mail/Parse/Parsers/Header.hs view
@@ -16,7 +16,7 @@ -- |Parses a header headerParser :: Parser Header headerParser = do- headerName <- AP.takeWhile (/= _colon)+ headerN <- AP.takeWhile (/= _colon) word8 _colon AP.takeWhile isWhitespace @@ -27,7 +27,7 @@ let parsedBody = parseText headerBody let body = if isRight parsedBody then fromRight parsedBody else headerBody - return $ Header (decodeUtf8 headerName) body+ return $ Header (decodeUtf8 headerN) body -- |Concatenate lines insterting whitespace between them. -- The whitespace needs to be inserted as these lines