diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-14 10:02:40 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-14 10:02:40 +0000 |
| commit | 246f307b22fb02ccc2bdd37520fdc330715d44ee (patch) | |
| tree | 21d545c259a1a864ec042a27cd88a2bd29a5c9e9 /src-3.0/GFI.hs | |
| parent | c1c8257e82ace9860fa3880ae820b2b41b6403e0 (diff) | |
added syntax and examples fields to command help
Diffstat (limited to 'src-3.0/GFI.hs')
| -rw-r--r-- | src-3.0/GFI.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src-3.0/GFI.hs b/src-3.0/GFI.hs index 036d74659..681a54f39 100644 --- a/src-3.0/GFI.hs +++ b/src-3.0/GFI.hs @@ -134,8 +134,8 @@ wordCompletion cmdEnv line prefix p = Left _ -> ret ' ' [] CmplOpt (Just (Command n _ _)) pref -> case Map.lookup n (commands cmdEnv) of - Just inf -> do let flg_compls = ['-':flg | flg <- flags inf, isPrefixOf pref flg] - opt_compls = ['-':opt | opt <- options inf, isPrefixOf pref opt] + Just inf -> do let flg_compls = ['-':flg | (flg,_) <- flags inf, isPrefixOf pref flg] + opt_compls = ['-':opt | (opt,_) <- options inf, isPrefixOf pref opt] ret (if null flg_compls then ' ' else '=') (flg_compls++opt_compls) Nothing -> ret ' ' [] |