justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Work on menus

Browse Source
This commit is contained in:
justin
2022-11-22 10:14:25 +00:00
parent 054405244f
commit 860d63df45
13 changed files with 251 additions and 167 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Menu/PushPop.hs
+2 -2
View File
@@ -6,6 +6,6 @@ import LensHelp
popScreen :: Universe -> Universe
popScreen = uvScreenLayers %~ tail
pushScreen :: ScreenLayer -> Universe -> Universe
pushScreen ml = uvScreenLayers .:~ ml
pushScreen :: (Universe -> ScreenLayer) -> Universe -> Universe
pushScreen ml u = u & uvScreenLayers .:~ ml u