diff --git a/ftphs.cabal b/ftphs.cabal
--- a/ftphs.cabal
+++ b/ftphs.cabal
@@ -1,5 +1,5 @@
 Name: ftphs
-Version: 1.0.7
+Version: 1.0.8
 License: LGPL
 Maintainer: John Goerzen <jgoerzen@complete.org>
 Author: John Goerzen
@@ -39,7 +39,7 @@
   Extensions: ExistentialQuantification, OverlappingInstances, 
    UndecidableInstances, CPP
   Build-Depends: network, parsec, base >= 3 && < 5,
-               haskell98, mtl, regex-compat, 
+                 mtl, regex-compat, 
                hslogger, MissingH>=1.0.0
   GHC-Options: -O2
 
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
@@ -445,9 +445,9 @@
 
 {- | Downloads a file from remote and saves to disk in binary mode.  Note: filename is used for both local and remote. -}
 downloadbinary :: FTPConnection -> String -> IO FTPResult
-downloadbinary h fn = do r <- getbinary h fn
-                         writeBinaryFile fn (fst r)
-                         return (snd r)
+downloadbinary h fn = do (r0, r1) <- getbinary h fn
+                         writeBinaryFile fn r0
+                         return r1
 
 {- | Retrieves a list of files in the given directory.