Fixed compilation errors

diff --git a/src/Network/IMAP/Connection.hs b/src/Network/IMAP/Connection.hs
index 2a370421f6a4a0beffa462cb18bfd2c286150247..2172c50ca519a091ee5dec53e380bffe0d9def8b 100644 (file)
--- a/src/Network/IMAP/Connection.hs
+++ b/src/Network/IMAP/Connection.hs
@@ -42,9 +42,9 @@ stringConnection sdata wdata =
                     else do let (r, s') = genericSplitAt count s
                             put (s', sw)
                             return r
-          lreadLine count =
+          lreadLine =
               do (s, sw) <- get
-                 (line, remainder) <- spanList (\x -> "\r\n" /= take 2 x) s
+                 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