Tests pass

2020-12-10 21:24:23 +02:00
parent a43b0bf471
commit b483ccb3f4
5 changed files with 63 additions and 12 deletions
--- a/src/Data/Email/Header.hs
+++ b/src/Data/Email/Header.hs
@@ -41,6 +41,7 @@ decode = parseOnly parseHeader
      name <- T.pack <$> many' (notChar '@')
      _ <- char '@'
      rest <- T.pack <$> many' (satisfy (\c -> not (isSpace c) && c /= ','))
+      _ <- many' (notChar ',')
      pure (name <> "@" <> rest)