Remove a lot of IO/maybe cruft

2022-10-30 16:11:30 +00:00
parent 624a4c3bcd
commit 219379393e
9 changed files with 85 additions and 93 deletions
@@ -3,14 +3,9 @@ module Dodge.Menu.PushPop where
 import Dodge.Data.Universe
 import LensHelp

-popScreen' :: Universe -> Maybe Universe
-popScreen' = Just . (uvScreenLayers %~ tail)
+popScreen :: Universe -> Universe
+popScreen = uvScreenLayers %~ tail

-popScreen :: Universe -> IO (Maybe Universe)
-popScreen = return . popScreen'
+pushScreen :: ScreenLayer -> Universe -> Universe
+pushScreen ml = (uvScreenLayers .:~ ml)

-pushScreen' :: ScreenLayer -> Universe -> Maybe Universe
-pushScreen' ml = Just . (uvScreenLayers .:~ ml)
-
-pushScreen :: ScreenLayer -> Universe -> IO (Maybe Universe)
-pushScreen ml = return . pushScreen' ml