@@ -41,7 +41,7 @@ simple details example args_ flags_ callback =
4141 argStrings <- Env.getArgs
4242 case argStrings of
4343 ["--version"] ->
44− do hPutStrLn stdout (V.toChars V.compiler ++ "-alpha-4")
44+ do hPutStrLn stdout (V.toChars V.compiler ++ "-beta-1")
4545 Exit.exitSuccess
4646
4747 chunks ->
@@ -69,7 +69,7 @@ complex intro outro interfaces =
6969 Error.exitWithOverview intro outro interfaces
7070
7171 ["--version"] ->
72− do hPutStrLn stdout (V.toChars V.compiler ++ "-alpha-4")
72+ do hPutStrLn stdout (V.toChars V.compiler ++ "-beta-1")
7373 Exit.exitSuccess
7474
7575 command : chunks ->