14 lines
385 B
Haskell
14 lines
385 B
Haskell
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
|