respText stuff is working

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

diff --git a/src/Network/IMAP/Parser.hs b/src/Network/IMAP/Parser.hs
index 23cf07461a0f89c3c12ef53bf001f86a5e673bde..9f910c5bd50da50691b9aebf03a55e5b9c4465f5 100644 (file)
--- a/src/Network/IMAP/Parser.hs
+++ b/src/Network/IMAP/Parser.hs
@@ -103,10 +103,11 @@ respText =
     where respTextCode =
               do char '['
                  a <- atom
-                 sp
-                 b <- option "" respTextCodeText
+                 b <- option "" (sp >> respTextCodeText)
                  char ']'
                  sp
-                 return (a ++ " " ++ b)
+                 case b of
+                   [] -> return a
+                   _ -> return $ a ++ " " ++ b
           respTextCodeText = many1 (noneOf (']' : crlf))
                  
\ No newline at end of file