yjftp 0.3.2 → 0.3.3
raw patch · 2 files changed
+4/−4 lines, 2 files
Files
- Network/CommandList.hs +2/−1
- yjftp.cabal +2/−3
Network/CommandList.hs view
@@ -144,7 +144,8 @@ 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
yjftp.cabal view
@@ -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 @@ 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