Rethink item ammo to item consumables, start item type datatype

2021-11-29 16:22:31 +00:00
parent 3a605b8156
commit f40d486d68
31 changed files with 238 additions and 193 deletions
@@ -0,0 +1,14 @@
+module Dodge.Menu.PushPop where
+import Dodge.Data
+import LensHelp
+
+popScreen' :: Universe -> Maybe Universe
+popScreen' = Just . (menuLayers %~ tail)
+popScreen :: Universe -> IO (Maybe Universe)
+popScreen = return . popScreen'
+
+
+pushScreen' :: ScreenLayer -> Universe -> Maybe Universe
+pushScreen' ml = Just . (menuLayers .:~ ml)
+pushScreen :: ScreenLayer -> Universe -> IO (Maybe Universe)
+pushScreen ml = return . pushScreen' ml