git.iko.soy/elk
on master help sign in
Add --version and --help flags to "complex with no args"
c299dfeEvan Czaplicki
ui/terminal/src/Terminal/Args.hs+13
compare with master
unifiedsplit
@@ -24,6 +24,8 @@ import System.FilePath ((</>))
24import System.IO (hPutStrLn, stdout)
24import System.IO (hPutStrLn, stdout)
25import qualified Text.PrettyPrint.ANSI.Leijen as P
25import qualified Text.PrettyPrint.ANSI.Leijen as P
26
26
27+import qualified Elm.Compiler as Compiler
28+import qualified Elm.Package as Pkg
27import Terminal.Args.Internal
29import Terminal.Args.Internal
28import qualified Terminal.Args.Chomp as Chomp
30import qualified Terminal.Args.Chomp as Chomp
29import qualified Terminal.Args.Error as Error
31import qualified Terminal.Args.Error as Error
@@ -41,6 +43,10 @@ simple details example args_ flags_ callback =
41 attemptAutoComplete number $ \index ->
43 attemptAutoComplete number $ \index ->
42 fst $ Chomp.chomp (Just index) chunks args_ flags_
44 fst $ Chomp.chomp (Just index) chunks args_ flags_
43
45
46+ ["--version"] ->
47+ do hPutStrLn stdout (Pkg.versionToString Compiler.version)
48+ Exit.exitSuccess
49+
44 chunks ->
50 chunks ->
45 if elem "--help" chunks then
51 if elem "--help" chunks then
46 Error.exitWithHelp Nothing details example args_ flags_
52 Error.exitWithHelp Nothing details example args_ flags_
@@ -61,6 +67,13 @@ complex intro outro interfaces =
61 [] ->
67 [] ->
62 Error.exitWithOverview intro outro interfaces
68 Error.exitWithOverview intro outro interfaces
63
69
70+ ["--help"] ->
71+ Error.exitWithOverview intro outro interfaces
72+
73+ ["--version"] ->
74+ do hPutStrLn stdout (Pkg.versionToString Compiler.version)
75+ Exit.exitSuccess
76+
64 "<autocomplete>" : number : chunks ->
77 "<autocomplete>" : number : chunks ->
65 attemptAutoComplete number $ \index ->
78 attemptAutoComplete number $ \index ->
66 complexSuggest index chunks interfaces
79 complexSuggest index chunks interfaces