Cleanup, only allow positive seeds

2022-05-26 13:34:51 +01:00
parent 5c41e2823e
commit 7d5edb4f41
4 changed files with 10 additions and 6 deletions
@@ -7,7 +7,7 @@ import System.Random
 startNewGame :: Universe -> Universe
 startNewGame u = startSeedGame i u
  where
-    i = fst $ random (_randGen (_uvWorld u))
+    i = fst $ randomR (0,maxBound) (_randGen (_uvWorld u))

 startSeedGame :: Int -> Universe -> Universe
 startSeedGame i u = u