diff options
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 ' ' [] |