Cleanup

src/Dodge/Initialisation.hs

@@ -1,5 +1,6 @@
 module Dodge.Initialisation where
 import Dodge.Default.World
+import Dodge.Base
 import Dodge.Save
 import Dodge.Data
 import Dodge.Creature
@@ -38,4 +39,4 @@ initialWorld = defaultWorld
     }
 
 testStringInit :: World -> [String]
-testStringInit w = [show $ _rewinding w]
+testStringInit w = [show $ _crInvSel $ you w]