diff options
| author | kr.angelov <kr.angelov@chalmers.se> | 2008-06-05 11:29:08 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@chalmers.se> | 2008-06-05 11:29:08 +0000 |
| commit | 11f24097b470122e2f3197bce3e6931701a68cc4 (patch) | |
| tree | 51d752fdb0b9d5e80fb890b16b0721a4d56a3df7 /src-3.0/GF/System/UseReadline.hs | |
| parent | f5fd3aa603bf736e47a6fdc6d9bf719ecef9d628 (diff) | |
complete word completion in the shell. works for commands, flags, options, abstract syntax identifiers and NL strings
Diffstat (limited to 'src-3.0/GF/System/UseReadline.hs')
| -rw-r--r-- | src-3.0/GF/System/UseReadline.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src-3.0/GF/System/UseReadline.hs b/src-3.0/GF/System/UseReadline.hs index c4a8f9239..7a4999850 100644 --- a/src-3.0/GF/System/UseReadline.hs +++ b/src-3.0/GF/System/UseReadline.hs @@ -18,6 +18,8 @@ import System.Console.Readline fetchCommand :: String -> IO (String) fetchCommand s = do + setCompletionAppendCharacter Nothing + setBasicQuoteCharacters "" res <- readline s case res of Nothing -> return "q" |