Added greeting and the functions needed to support it

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

diff --git a/src/Network/IMAP/Parser/Prim.hs b/src/Network/IMAP/Parser/Prim.hs
index 52728c00eb624eb49e17451d0e8c8d95aaf96772..68f3875f7a293f8f225351121b2de89602d96f97 100644 (file)
--- a/src/Network/IMAP/Parser/Prim.hs
+++ b/src/Network/IMAP/Parser/Prim.hs
@@ -59,12 +59,6 @@ dquote = '"'
 char2234 :: String
 char2234 = ['\x01'..'\x7f']
 
--- | RFC 2234
-sp :: Char
-sp = ' '
-
--- | RFC 2234
-
 ----------------------------------------------------------------------
 -- RFC 3501 primitives
 ----------------------------------------------------------------------
@@ -137,4 +131,7 @@ text = many1 textChar
 tag :: IMAPParser String
 tag = many1 tagChar
     where tagChar = (char '+' >> fail "No + for tag") <|> 
-                    astringChar
\ No newline at end of file
+                    astringChar
+
+sp :: IMAPParser Char
+sp = char ' '