Permalink
Browse files

Set version string to 0.2.

darcs-hash:20080508024030-2da90-ae5a43626ade358d6ae9dfd4b76c469c28eca78b.gz
  • Loading branch information...
1 parent 4b12d6f commit 727b7b54a9f636fdef2011f438a489e6c213b73d @clanehin committed May 8, 2008
Showing with 7 additions and 10 deletions.
  1. +7 −10 src/Main.hs
View
@@ -14,17 +14,14 @@ import HopList
import Protocol
import GridRayCaster
-program_version_number :: String
-program_version_number = "0.0.1"
+roguestar_version_number :: String
+roguestar_version_number = "0.2"
-program_name :: String
-program_name = "roguestar-engine"
+roguestar_program_name :: String
+roguestar_program_name = "roguestar-engine"
-program_variant :: String
-program_variant = "standard"
-
-program_id_string :: String
-program_id_string = (program_name ++ " " ++ program_version_number ++ " (" ++ program_variant ++ ")")
+roguestar_id_string :: String
+roguestar_id_string = (roguestar_program_name ++ " " ++ roguestar_version_number)
-- |
-- Processes a single command line argument.
@@ -39,7 +36,7 @@ runByArgs "tests" = do testsPassed <- runAllTests ([sampleTestCase] ++
then putStrLn "All tests passed."
else putStrLn "Error: a test failed."
-runByArgs "version" = do putStrLn program_id_string
+runByArgs "version" = do putStrLn roguestar_id_string
runByArgs "test-terrain-generator" = do seed <- randomIO
let example_terrain = generateExampleTerrain seed

0 comments on commit 727b7b5

Please sign in to comment.