summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYoshikuniJujo <>2009-06-14 23:02:02 (GMT)
committerLuite Stegeman <luite@luite.com>2009-06-14 23:02:02 (GMT)
commite682159628d8c257073147af923d1e2876593873 (patch)
treea1341986cec38b23bf9560a1443af2d63779d89a
parent93db1fd753715672d92f5bfe33f30757ef0a0a6a (diff)
version 0.3.6.10.3.6.1
-rw-r--r--Network/CommandList.hs2
-rw-r--r--yjftp.cabal2
-rw-r--r--yjftp.hs4
3 files changed, 4 insertions, 4 deletions
diff --git a/Network/CommandList.hs b/Network/CommandList.hs
index 38ae6df..21c6abb 100644
--- a/Network/CommandList.hs
+++ b/Network/CommandList.hs
@@ -196,7 +196,7 @@ compRemoteFile h strGen
let ret = addExcess $ filter (isPrefixOf str) fns
-- putStr "\nDEBUG2_: "; print strGen
-- putStr "DEBUG3: "; print ret
- return ret -- $ addExcess $ filter (isPrefixOf str) fns
+ return ret
where str = strGen {- if isSpace $ last strGen
then ""
else lastWord strGen -}
diff --git a/yjftp.cabal b/yjftp.cabal
index e7e8194..6089c8a 100644
--- a/yjftp.cabal
+++ b/yjftp.cabal
@@ -1,5 +1,5 @@
Name: yjftp
-Version: 0.3.6
+Version: 0.3.6.1
License: GPL
License-file: LICENSE
Author: Yoshikuni Jujo
diff --git a/yjftp.hs b/yjftp.hs
index 1ca7d23..1fae67a 100644
--- a/yjftp.hs
+++ b/yjftp.hs
@@ -16,8 +16,8 @@ myCommandList = [
"list directory contents\n\toption -l list detail of contents",
compLs))
, ("cd", (changeDirectoryFTP, "change directory in remote", compRemoteFile))
- , ("lcd", (changeDirectoryLocal, "change directory in local", const compFilename))
- , ("put", (putFileFTP, "upload file", const compFilename))
+ , ("lcd", (changeDirectoryLocal, "change directory in local", const filenameCompletionFunction))
+ , ("put", (putFileFTP, "upload file", const filenameCompletionFunction))
, ("get", (getFileFTP, "download file", compRemoteFile))
, ("cat", (showFileFTP, "show remote file", compRemoteFile))
, ("rm", (removeFileFTP, "delete remote file", compRemoteFile))