Dump some info to sdout when generating level

src/Dodge/Initialisation.hs

@@ -24,11 +24,12 @@ firstWorld :: IO World
 firstWorld = do
 --    i <- randomRIO (0,5000)
     let i = 3
-    putStrLn $ "Seed for level generation: " ++ show ( i :: Int)
-    let g = mkStdGen i
-    (roomList,n) <- f g
-    putStrLn $ "Had to go through "++ show n ++ " random generators"
-    return $ generateLevelFromRoomList roomList $ initialWorld {_randGen = g}
+    --putStrLn $ "Seed for level generation: " ++ show ( i :: Int)
+--    let g = mkStdGen i
+--    (roomList,n) <- f g
+--    putStrLn $ "Had to go through "++ show n ++ " random generators"
+    roomList <- layoutLevel i
+    return $ generateLevelFromRoomList roomList $ initialWorld -- note this uses a random generator defined elsewhere
   where
     f :: StdGen -> IO ([Room],Int)
     f g = do