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