purebred-email 0.6 → 0.6.0.1
raw patch · 2 files changed
+4/−4 lines, 2 filesdep ~semigroupoids
Dependency ranges changed: semigroupoids
Files
- purebred-email.cabal +3/−3
- src/Data/IMF.hs +1/−1
purebred-email.cabal view
@@ -1,6 +1,6 @@ cabal-version: 2.2 name: purebred-email-version: 0.6+version: 0.6.0.1 synopsis: types and parser for email messages (including MIME) description: The purebred email library. RFC 5322, MIME, etc.@@ -37,7 +37,7 @@ test-vectors/*.eml tests/golden/*.golden tested-with:- GHC ==8.8.4 || ==8.10.7 || ==9.0.2 || ==9.2.4 || ==9.4.2+ GHC ==8.8.4 || ==8.10.7 || ==9.0.2 || ==9.2.7 || ==9.4.5 || ==9.6.1 homepage: https://github.com/purebred-mua/purebred-email bug-reports: https://github.com/purebred-mua/purebred-email/issues@@ -117,7 +117,7 @@ , concise >= 0.1.0.1 && < 1 , deepseq >= 1.4.2 , random >= 1.2.0- , semigroupoids >= 5 && < 6+ , semigroupoids >= 5 && < 7 , stringsearch >= 0.3 hs-source-dirs: src default-language: Haskell2010
src/Data/IMF.hs view
@@ -73,7 +73,7 @@ @ analyse :: B.ByteString -> IO () analyse input =- case 'parse' ('message' (const takeByteString)) of+ case 'parse' ('message' (const takeByteString)) input of Left errMsg -> hPutStrLn stderr errMsg *> exitFailure Right (msg :: Message () B.ByteString) -> do T.putStrLn $ "subject: " <> foldOf ('headerSubject' 'defaultCharsets') msg