ilyakooo0/optparse-applicative
1
0
Fork 0
mirror of https://github.com/ilyakooo0/optparse-applicative.git synced 2024-11-27 11:56:20 +03:00
Code Issues Projects Releases Wiki Activity

Add completion for commands.

Browse Source
This commit is contained in:
Paolo Capriotti 2012-08-01 21:00:06 +01:00
parent 5620a636c6
commit 23cadd1820
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Options/Applicative/BashCompletion.hs
View File

@ -37,7 +37,14 @@ bashCompletionQuery parser ws i = case runCompletion compl parser of
where
list_options = filter is_completion
. concat
. mapParser (\_ -> map show_name . optionNames . optMain)
. mapParser (\_ -> opt_names)
opt_names opt = case optMain opt of
OptReader ns _ -> map show_name ns
FlagReader ns _ -> map show_name ns
ArgReader _ -> []
CmdReader ns _ -> ns
show_name (OptShort c) = '-':[c]
show_name (OptLong name) = "--" ++ name