Cleanup: broken pathfinding

src/Dodge/Initialisation.hs

@@ -4,8 +4,6 @@ import Dodge.Save
 import Dodge.Data
 import Dodge.Data.SoundOrigin
 import Dodge.Creature
-import Dodge.Floor
-import Dodge.Layout
 import Dodge.Story
 import Dodge.WorldEvent.Cloud
 import Dodge.SoundLogic
@@ -17,12 +15,6 @@ import qualified Data.Set as S
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Map as M
 
-worldFromSeed :: Int -> IO World
-worldFromSeed i = do
-    roomList <- layoutLevelFromSeed 0 i
-    return $ generateLevelFromRoomList roomList 
-         initialWorld -- note this uses a random generator defined elsewhere
-
 initialWorld :: World
 initialWorld = defaultWorld
     { _keys = S.empty