summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYoshikuniJujo <>2008-11-02 02:27:48 (GMT)
committerLuite Stegeman <luite@luite.com>2008-11-02 02:27:48 (GMT)
commit6b7e28a9d29bbb3aec0473653c4b11a141df1797 (patch)
treee0d844b3db37d183bd32be431388720aaa8efa54
parentc04a8296c2597f72cc239fd7358b10ada64a7ec9 (diff)
version 0.3.30.3.3
-rw-r--r--Network/CommandList.hs3
-rw-r--r--yjftp.cabal5
2 files changed, 4 insertions, 4 deletions
diff --git a/Network/CommandList.hs b/Network/CommandList.hs
index 4e0f629..f5045cd 100644
--- a/Network/CommandList.hs
+++ b/Network/CommandList.hs
@@ -144,7 +144,8 @@ moveFileFTP h [src, dst] = rename h src dst >> return True
moveFileFTP _ _ = error "moveFileFTP: args incorrect"
copyFileFTP :: Action
-copyFileFTP h [src, dst] = getbinary h src >>= putbinary h dst . fst >> return True
+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 _ _ = error "Usage: cp src dist"
editBy :: (String -> IO String) -> Action
diff --git a/yjftp.cabal b/yjftp.cabal
index 3cf08b9..ec66b7b 100644
--- a/yjftp.cabal
+++ b/yjftp.cabal
@@ -1,5 +1,5 @@
Name: yjftp
-Version: 0.3.2
+Version: 0.3.3
License: GPL
License-file: LICENSE
Author: Yoshikuni Jujo
@@ -19,10 +19,9 @@ Description: Just CUI FTP client.
Once login, you can run command 'ls', 'cd', 'cat', 'put', 'get', 'edit', 'show'
and so on.
.
- And you can put/get immediately by doing following.
+ 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