@@ -40,7 +40,7 @@ _command details example args_ flags_ callback =
40 argStrings <- Env.getArgs
40 argStrings <- Env.getArgs
41 case argStrings of
41 case argStrings of
42 ["--version"] ->
42 ["--version"] ->
43− do hPutStrLn stdout (V.toChars V.compiler ++ "-rc-1")
43+ do hPutStrLn stdout (V.toChars V.compiler)
44 Exit.exitSuccess
44 Exit.exitSuccess
@@ -72,7 +72,7 @@ app intro outro commands =
72 Error.exitWithOverview intro outro commands
72 Error.exitWithOverview intro outro commands
74 ["--version"] ->
74 ["--version"] ->
75− do hPutStrLn stdout (V.toChars V.compiler ++ "-rc-1")
75+ do hPutStrLn stdout (V.toChars V.compiler)
76 Exit.exitSuccess
76 Exit.exitSuccess
78 command : chunks ->
78 command : chunks ->