Cleanup: broken pathfinding

appDodge/Main.hs

@@ -3,7 +3,7 @@ module Main
     ) where
 import Loop
 import Dodge.Data
-import Dodge.Initialisation
+import Dodge.LevelGen
 import Dodge.Update
 import Dodge.Event
 import Dodge.Render
@@ -56,7 +56,7 @@ firstWorldLoad theConfig = do
     SDL.cursorVisible $= False
     theKeyConfig <- loadKeyConfig
     pdata <- doPreload >>= applyWorldConfig theConfig
-    w <- worldFromSeed 0
+    w <- generateWorldFromSeed 0
     return $ w & preloadData .~ pdata
         & keyConfig .~ theKeyConfig
         & config .~ theConfig