Added tag and test for it. All tests pass.

[offlineimap] / src / Network / IMAP / Parser / Prim.hs

diff --git a/src/Network/IMAP/Parser/Prim.hs b/src/Network/IMAP/Parser/Prim.hs
index 204b0af8d0923880492f7e1b7ddd664881c2daed..13946f509e6bd7bd37edfd2e103c3fc86627a5fc 100644 (file)
--- a/src/Network/IMAP/Parser/Prim.hs
+++ b/src/Network/IMAP/Parser/Prim.hs
@@ -121,3 +121,7 @@ quotedChar =
 textChar = noneOf crlf
 
 text = many1 textChar
+
+tag = many1 tagChar
+    where tagChar = (char '+' >> fail "No + for tag") <|> 
+                    astringChar
\ No newline at end of file