Start pushing updateUseInput into other update functions

src/Dodge/Update/Input.hs

@@ -1,13 +1,2 @@
 module Dodge.Update.Input (
-    updateUseInput,
 ) where
-
-import Dodge.Data.Universe
-import Dodge.Update.Input.InGame
-import Dodge.Update.Input.ScreenLayer
-import Control.Lens
-
-updateUseInput :: Universe -> Universe
-updateUseInput u = case u ^? uvScreenLayers . _head of
-    Just sl -> updateUseInputOnScreen sl u
-    Nothing -> updateUseInputInGame (u ^. uvWorld . hud . hudElement) u

src/Dodge/Update/Input/InGame.hs

@@ -29,8 +29,8 @@ import Geometry
 import LensHelp
 import SDL
 
-updateUseInputInGame :: HUDElement -> Universe -> Universe
-updateUseInputInGame h u = case h of
+updateUseInputInGame :: Universe -> Universe
+updateUseInputInGame u = case u ^. uvWorld . hud . hudElement of
     DisplayCarte -> over uvWorld updatePressedButtonsCarte u
     DisplayInventory{_subInventory = si} -> case si of
         DisplayTerminal tmid