Tweak starting rooms

src/Dodge/LevelGen.hs

@@ -7,12 +7,11 @@ import Dodge.Data
 import Dodge.Floor
 import Dodge.Layout
 import Dodge.Initialisation
---import qualified IntMapHelp as IM
 
---import Control.Lens
+import System.Random
 
 generateWorldFromSeed :: Int -> IO World
 generateWorldFromSeed i = do
     roomList <- layoutLevelFromSeed 0 i
     return $ generateLevelFromRoomList roomList 
-         initialWorld -- note this uses a random generator defined elsewhere
+         initialWorld{_randGen=mkStdGen i}