ftphs 1.0.9 → 1.0.9.1

raw patch · 3 files changed

+5/−5 lines, 3 files

Files

ftphs.cabal +3/−3
src/Network/FTP/Client.hs +1/−1
src/Network/FTP/Server.hs +1/−1

ftphs.cabal view

@@ -1,10 +1,10 @@ Name: ftphs-Version: 1.0.9+Version: 1.0.9.1 License: LGPL Maintainer: John Goerzen <jgoerzen@complete.org> Author: John Goerzen Stability: Stable-Copyright: Copyright (c) 2004-2010 John Goerzen+Copyright: Copyright (c) 2004-2013 John Goerzen license-file: COPYRIGHT extra-source-files: COPYING,                     Makefile,@@ -37,7 +37,7 @@     Network.FTP.Server,     Network.FTP.Server.Parser   Extensions: ExistentialQuantification, OverlappingInstances, -   UndecidableInstances, CPP+   UndecidableInstances, CPP, ScopedTypeVariables   Build-Depends: network, parsec, base >= 3 && < 5,                  mtl, regex-compat,                 hslogger, MissingH>=1.0.0

src/Network/FTP/Client.hs view

@@ -35,7 +35,7 @@ Here is a quick usage example to get you started.  This is a log of a real session with ghci:  -(This would be similar in a "do" block.  You could also save it to a file and+(This would be similar in a @do@ block.  You could also save it to a file and run that with Hugs.)  > Prelude> :l Network.FTP.Client

src/Network/FTP/Server.hs view

@@ -169,7 +169,7 @@     do result <- try testAction        case result of          Left (err::SomeException) -> do sendReply h 550 (show err)-                                    return True+                                         return True          Right result -> remainingAction result  forceLogin :: CommandHandler -> CommandHandler