@@ -24,6 +24,8 @@ import System.FilePath ((</>))
2424import System.IO (hPutStrLn, stdout)
2525import qualified Text.PrettyPrint.ANSI.Leijen as P
2626
27+import qualified Elm.Compiler as Compiler
28+import qualified Elm.Package as Pkg
2729import Terminal.Args.Internal
2830import qualified Terminal.Args.Chomp as Chomp
2931import qualified Terminal.Args.Error as Error
@@ -41,6 +43,10 @@ simple details example args_ flags_ callback =
4143 attemptAutoComplete number $ \index ->
4244 fst $ Chomp.chomp (Just index) chunks args_ flags_
4345
46+ ["--version"] ->
47+ do hPutStrLn stdout (Pkg.versionToString Compiler.version)
48+ Exit.exitSuccess
49+
4450 chunks ->
4551 if elem "--help" chunks then
4652 Error.exitWithHelp Nothing details example args_ flags_
@@ -61,6 +67,13 @@ complex intro outro interfaces =
6167 [] ->
6268 Error.exitWithOverview intro outro interfaces
6369
70+ ["--help"] ->
71+ Error.exitWithOverview intro outro interfaces
72+
73+ ["--version"] ->
74+ do hPutStrLn stdout (Pkg.versionToString Compiler.version)
75+ Exit.exitSuccess
76+
6477 "<autocomplete>" : number : chunks ->
6578 attemptAutoComplete number $ \index ->
6679 complexSuggest index chunks interfaces