diff options
| author | kr.angelov <kr.angelov@chalmers.se> | 2008-06-05 12:12:44 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@chalmers.se> | 2008-06-05 12:12:44 +0000 |
| commit | c4d298a347bace37c4fe06fa0e1a4668b92028ed (patch) | |
| tree | 30066e202c04a25a8d651a7f817f4ffe62b9c7dd /src-3.0/GF/System/NoReadline.hs | |
| parent | abea46022ef35df493a8d78f56f5e9211150c54b (diff) | |
file name completion for command i
Diffstat (limited to 'src-3.0/GF/System/NoReadline.hs')
| -rw-r--r-- | src-3.0/GF/System/NoReadline.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src-3.0/GF/System/NoReadline.hs b/src-3.0/GF/System/NoReadline.hs index 564200a3e..1f1050e8c 100644 --- a/src-3.0/GF/System/NoReadline.hs +++ b/src-3.0/GF/System/NoReadline.hs @@ -12,7 +12,7 @@ -- Do not use readline. ----------------------------------------------------------------------------- -module GF.System.NoReadline (fetchCommand, setCompletionFunction) where +module GF.System.NoReadline (fetchCommand, setCompletionFunction, filenameCompletionFunction) where import System.IO.Error (try) import System.IO (stdout,hFlush) @@ -28,3 +28,6 @@ fetchCommand s = do setCompletionFunction :: Maybe (String -> String -> Int -> IO [String]) -> IO () setCompletionFunction _ = return () + +filenameCompletionFunction :: String -> IO [String] +filenameCompletionFunction _ = return [] |