yjftp-libs 0.0.1 → 0.0.2
raw patch · 2 files changed
+5/−4 lines, 2 filesdep ~base
Dependency ranges changed: base
Files
- src/Network/Yjftp.hs +3/−2
- yjftp-libs.cabal +2/−2
src/Network/Yjftp.hs view
@@ -14,7 +14,7 @@ import System.Posix.IO (stdOutput) import System.Posix.Terminal(getTerminalAttributes, setTerminalAttributes, withoutMode, TerminalState(Immediately), TerminalMode(EnableEcho))-import Control.OldException (catch, Exception)+import Control.Exception (catch, SomeException) import Control.Monad (when, unless) import Control.Applicative ((<$>)) import Prelude hiding (catch)@@ -63,7 +63,8 @@ psswd <- getPassword login h usr (Just psswd) Nothing -tryNTimes :: Int -> (Exception -> IO a) -> IO b -> IO b+-- tryNTimes :: Int -> (Exception -> IO a) -> IO b -> IO b+tryNTimes :: Int -> (SomeException -> IO a) -> IO b -> IO b tryNTimes 0 _ _ = exitFailure tryNTimes n errM act = if (n < 0) then error "tryNTimes: bad! minus times trial?"
yjftp-libs.cabal view
@@ -1,5 +1,5 @@ Name: yjftp-libs-Version: 0.0.1+Version: 0.0.2 License: GPL License-file: LICENSE Author: Yoshikuni Jujo@@ -37,7 +37,7 @@ Library Hs-source-dirs: src GHC-Options: -Wall- Build-Depends: base >= 4 && < 4.6, unix, directory, process, ftphs, mtl+ Build-Depends: base >= 4 && < 4.7, unix, directory, process, ftphs, mtl Exposed-Modules: Network.Yjftp Executable yjftp-ni