12 lines
307 B
Haskell
12 lines
307 B
Haskell
module Dodge.Menu.PushPop where
|
|
|
|
import Dodge.Data.Universe
|
|
import LensHelp
|
|
|
|
popScreen :: Universe -> Universe
|
|
popScreen = (uvScreenLayers . ix 0 . scDisplayTime .~ 0) . (uvScreenLayers %~ tail)
|
|
|
|
pushScreen :: (Universe -> ScreenLayer) -> Universe -> Universe
|
|
pushScreen ml u = u & uvScreenLayers .:~ ml u
|
|
|