diff --git a/ftp-client.cabal b/ftp-client.cabal
--- a/ftp-client.cabal
+++ b/ftp-client.cabal
@@ -1,16 +1,16 @@
-name: ftp-client
-version: 0.5.0.0
 cabal-version: >=1.10
-build-type: Simple
+name: ftp-client
+version: 0.5.0.1
 license: PublicDomain
 license-file: LICENSE
 maintainer: mrobinson7627@gmail.com
+author: Megan Robinson
 homepage: https://github.com/mr/ftp-client
 synopsis: Transfer files with FTP and FTPS
 description:
     ftp-client is a library for communicating with an FTP server. It works over both a clear channel or TLS.
 category: Web
-author: Matthew Robinson
+build-type: Simple
 extra-source-files:
     README.md
 
@@ -21,24 +21,24 @@
 library
     exposed-modules:
         Network.FTP.Client
+    hs-source-dirs: src
+    default-language: Haskell2010
+    default-extensions: OverloadedStrings
     build-depends:
         base >=4.8 && <5,
-        bytestring >=0.10.8.1 && <0.11,
-        network >=2.6.3.1 && <2.7,
+        bytestring >=0.10.8.2 && <0.11,
+        network >=2.6.3.6 && <2.7,
         attoparsec >=0.10 && <0.14,
         connection ==0.2.*,
-        transformers >=0.5.2.0 && <0.6,
-        exceptions >=0.8.3 && <0.9,
-        containers >=0.5.7.1 && <0.6
-    default-language: Haskell2010
-    default-extensions: OverloadedStrings
-    hs-source-dirs: src
+        transformers >=0.5.5.0 && <0.6,
+        exceptions >=0.10.0 && <0.11,
+        containers >=0.5.11.0 && <0.6
 
 test-suite ftp-client-test
     type: exitcode-stdio-1.0
     main-is: Spec.hs
-    build-depends:
-        base >=4.9.1.0 && <4.10
-    default-language: Haskell2010
     hs-source-dirs: test
+    default-language: Haskell2010
     ghc-options: -threaded -rtsopts -with-rtsopts=-N
+    build-depends:
+        base >=4.11.1.0 && <4.12
diff --git a/src/Network/FTP/Client.hs b/src/Network/FTP/Client.hs
--- a/src/Network/FTP/Client.hs
+++ b/src/Network/FTP/Client.hs
@@ -63,7 +63,7 @@
 import Data.Attoparsec.ByteString.Char8
 import qualified Network.Socket as S
 import qualified System.IO as SIO
-import Data.Monoid ((<>), mconcat)
+import Data.Monoid ((<>))
 import Control.Exception
 import Control.Monad.Catch (MonadCatch, MonadMask)
 import qualified Control.Monad.Catch as M
@@ -71,7 +71,6 @@
 import Control.Monad.IO.Class
 import Data.Bits
 import Network.Connection
-import System.IO.Error
 import Data.ByteString.Lazy.Internal (defaultChunkSize)
 import Data.Functor ((<$>))
 import Control.Applicative ((<*>))
@@ -80,16 +79,13 @@
 import Control.Arrow
 import Data.Typeable
 
-import Debug.Trace
-
 debugging :: Bool
 debugging = True
 
 debugPrint :: (Show a, MonadIO m) => a -> m ()
-debugPrint s = debugPrint' s debugging
-    where
-        debugPrint' _ False = return ()
-        debugPrint' s True = liftIO $ print s
+debugPrint s = if debugging
+    then return ()
+    else liftIO $ print s
 
 debugResponse :: (Show a, MonadIO m) => a -> m ()
 debugResponse s = debugPrint $ "Recieved: " <> (show s)