ftp-client 0.5.0.0 → 0.5.0.1

raw patch · 2 files changed

+19/−23 lines, 2 filesdep ~basedep ~bytestringdep ~containersPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: base, bytestring, containers, exceptions, network, transformers

API changes (from Hackage documentation)

Files

• ftp-client.cabal +15/−15
• src/Network/FTP/Client.hs +4/−8

@@ -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

@@ -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)