Update Parser.hs

erebe · web-flow · commit 863a82fade89 · 2023-02-25T19:54:36.000+01:00
diff --git a/src/Parser.hs b/src/Parser.hs
@@ -64,7 +64,7 @@ headerMapping = fromList [
     , ("cc"            , Cc)
     , ("bcc"           , Bcc)
     , ("list-id"       , ListID)
-    , ("x-spam-flag"   , Spam)
+    , ("x-spam"        , Spam)
     ]
 
 parseHeaderName :: Parser HeaderName

Original file line number	Diff line number	Diff line change
`@@ -64,7 +64,7 @@ headerMapping = fromList [`
`64`	`64`	`, ("cc" , Cc)`
`65`	`65`	`, ("bcc" , Bcc)`
`66`	`66`	`, ("list-id" , ListID)`
`67`		`- , ("x-spam-flag" , Spam)`
	`67`	`+ , ("x-spam" , Spam)`
`68`	`68`	`]`
`69`	`69`
`70`	`70`	`parseHeaderName :: Parser HeaderName`