Comment typo

diff --git a/src/Network/IMAP/Connection.hs b/src/Network/IMAP/Connection.hs
index 7608818b92fbdd8ea8f621fad1b9c410db7a135a..2c06d20451cdc758515e9d415ca2bec54dae1474 100644 (file)
--- a/src/Network/IMAP/Connection.hs
+++ b/src/Network/IMAP/Connection.hs
@@ -50,7 +50,7 @@ newStringConnection =
                  let (line, remainder) = spanList (\x -> "\r\n" /= take 2 x) s
                  case remainder of
                    [] -> fail "EOF in input in readLine"
-                   r -> do put (drop 2 r, sw) -- strip of \r\n
+                   r -> do put (drop 2 r, sw) -- strip off \r\n
                            return line
 
           lwriteBytes outdata =