Cleanup creature picture

src/Dodge/Update.hs

@@ -6,7 +6,7 @@ module Dodge.Update
     ( update
     ) where
 import Dodge.Data
-import Dodge.Data.Menu
+import Dodge.Menu
 import Dodge.World.Trigger.Data
 --import Dodge.Config.Data
 import Dodge.Base
@@ -45,11 +45,11 @@ pushSideEffects w = w
 For most menus the only way to change the world is using event handling.  -}
 functionalUpdate :: World -> World
 functionalUpdate w = case _menuLayers w of
-    (TerminalMessage t xs:mls) -> w & menuLayers .~ (TerminalMessage (max (t-1) 0) xs:mls)
-    (WaitMessage s i: _) 
+    (TerminalScreen t xs:mls) -> w & menuLayers .~ (TerminalScreen (max (t-1) 0) xs:mls)
+    (WaitScreen s i : _) 
         | i < 1     -> w & dbArg _worldEvents
-        | otherwise -> w & menuLayers %~ ( (WaitMessage s (i-1) :) . tail )
-    (GameOverMenu : _) -> updateParticles 
+        | otherwise -> w & menuLayers %~ ( (WaitScreen s (i-1) :) . tail )
+    (OptionScreen {_scOptionFlag = GameOverOptions} : _) -> updateParticles 
         . updateProjectiles 
         . updateLightSources
         . updateClouds
@@ -164,7 +164,7 @@ updateSeenWalls w = foldl' (flip markSeen) w wallsToUpdate
 
 checkEndGame :: World -> World
 checkEndGame w 
-    | _crHP (you w) < 1 = haltSound $ w {_menuLayers = [GameOverMenu]}
+    | _crHP (you w) < 1 = haltSound $ w {_menuLayers = [gameOverMenu]}
     | otherwise         = w
 
 --updateClouds :: World -> World