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