Cleanup creature picture

src/Dodge/Initialisation.hs

@@ -1,7 +1,6 @@
 module Dodge.Initialisation where
 import Dodge.Default.World
 import Dodge.Data
-import Dodge.Data.Menu
 import Dodge.Creature
 --import Dodge.Base
 import Dodge.Floor
@@ -49,7 +48,7 @@ initialWorld = defaultWorld
     , _sounds = M.empty
     , _decorations = IM.empty
     , _storedLevel = Nothing
-    , _menuLayers = [TerminalMessage 300 rezText']
+    , _menuLayers = [TerminalScreen 300 rezText']
     , _worldState = M.empty
     }
 testStringInit :: World -> [String]