From 246f307b22fb02ccc2bdd37520fdc330715d44ee Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 14 Jun 2008 10:02:40 +0000 Subject: added syntax and examples fields to command help --- src-3.0/GFI.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src-3.0/GFI.hs') 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 ' ' [] -- cgit v1.2.3