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