Cleanup

src/Dodge/Initialisation.hs

@@ -33,7 +33,7 @@ firstWorld = do
 --    i <- randomRIO (0,5000)
     let i = 2
     putStrLn $ "Seed for level generation: " ++ show ( i :: Int)
-    return $ generateLevelFromRoomList levx $ initialWorld {_randGen = mkStdGen i}
+    return $ generateLevelFromRoomList (levx 1) $ initialWorld {_randGen = mkStdGen i}
 
 initialWorld :: World
 initialWorld = defaultWorld