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