17 lines
449 B
Haskell
17 lines
449 B
Haskell
module Dodge.Menu.PushPop where
|
|
|
|
import Dodge.Data.Universe
|
|
import LensHelp
|
|
|
|
popScreen' :: Universe -> Maybe Universe
|
|
popScreen' = Just . (uvScreenLayers %~ tail)
|
|
|
|
popScreen :: Universe -> IO (Maybe Universe)
|
|
popScreen = return . popScreen'
|
|
|
|
pushScreen' :: ScreenLayer -> Universe -> Maybe Universe
|
|
pushScreen' ml = Just . (uvScreenLayers .:~ ml)
|
|
|
|
pushScreen :: ScreenLayer -> Universe -> IO (Maybe Universe)
|
|
pushScreen ml = return . pushScreen' ml
|