yjftp 0.3.3 → 0.3.4
raw patch · 3 files changed
+7/−7 lines, 3 filesdep ~base
Dependency ranges changed: base
Files
- Network/CommandList.hs +2/−3
- Network/Yjftp.hs +1/−1
- yjftp.cabal +4/−3
Network/CommandList.hs view
@@ -40,7 +40,7 @@ import System.Posix.Temp (mkstemp) import Data.Maybe (fromJust) import Data.List (isPrefixOf)-import Control.Exception (catchJust, ioErrors, ioError, bracketOnError)+import Control.OldException (catchJust, ioErrors, ioError, bracketOnError) import System.Console.Readline @@ -144,8 +144,7 @@ moveFileFTP _ _ = error "moveFileFTP: args incorrect" copyFileFTP :: Action-copyFileFTP h [src, dst] = getbinary h src >>= flush >>= putbinary h dst . fst >> return True- where flush s@(c,_) = putStr (take (length c - length c) "dummy") >> return s+copyFileFTP h [src, dst] = getbinary h src >>= putbinary h dst . fst >> return True copyFileFTP _ _ = error "Usage: cp src dist" editBy :: (String -> IO String) -> Action
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.Exception (catch, Exception)+import Control.OldException (catch, Exception) import Control.Monad (when, unless) import Control.Applicative ((<$>)) import Prelude hiding (catch)
yjftp.cabal view
@@ -1,5 +1,5 @@ Name: yjftp-Version: 0.3.3+Version: 0.3.4 License: GPL License-file: LICENSE Author: Yoshikuni Jujo@@ -22,10 +22,11 @@ And you can put or get immediately by doing following. . > yjftp put filepath srvr.address/directorypath [user_name] [-p password]+ . > yjftp get srvr.address/filepath [user_name] [-p password] Stability: experimental Homepage: http://homepage3.nifty.com/salamander/second/projects/yjftp/index.xhtml-Package-Url: http://homepage3.nifty.com/salamander/second/portage/distfiles/yjftp-0.3.2.tar.gz+Package-Url: http://homepage3.nifty.com/salamander/second/portage/distfiles/yjftp-0.3.4.tar.gz Cabal-Version: >= 1.2 Build-Type: Simple Tested-With: GHC@@ -35,7 +36,7 @@ Library GHC-Options: -Wall- Build-Depends: base, unix, directory, process, ftphs, readline+ Build-Depends: base >= 4 && <= 4.1.0.0, unix, directory, process, ftphs, readline Exposed-Modules: Network.Yjftp Other-Modules: Network.CommandList