From d4efc789f50218bac6fbbb4647065ec798db1185 Mon Sep 17 00:00:00 2001
From: Peter Sumskas <peter.sumskas@envato.com>
Date: Fri, 9 Aug 2019 22:41:49 +1000
Subject: [PATCH] fix multiline response

---
 ftp-client/src/Network/FTP/Client.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ftp-client/src/Network/FTP/Client.hs b/ftp-client/src/Network/FTP/Client.hs
index c79bb0a..4246aca 100644
--- a/ftp-client/src/Network/FTP/Client.hs
+++ b/ftp-client/src/Network/FTP/Client.hs
@@ -268,7 +268,8 @@ loopMultiLine h code lines = do
     nextLine <- liftIO $ getLineResp h
     let newLines = lines <> [C.dropWhile (== ' ') nextLine]
         nextCode = C.take 3 nextLine
-    if nextCode == code
+        continue = C.head $ C.drop 3 nextLine
+    if nextCode == code && continue /= '-'
         then return newLines
         else loopMultiLine h code newLines