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

Stop equip after combining

Browse Source
This commit is contained in:
justin
2023-05-15 06:46:09 +01:00
parent 1cec50c5ab
commit 0735b46266
13 changed files with 38 additions and 112 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Menu/PushPop.hs
+1 -1
View File
@@ -4,7 +4,7 @@ import Dodge.Data.Universe
import LensHelp
popScreen :: Universe -> Universe
popScreen = uvScreenLayers %~ tail
popScreen = (uvScreenLayers . ix 0 . scDisplayTime .~ 0) . (uvScreenLayers %~ tail)
pushScreen :: (Universe -> ScreenLayer) -> Universe -> Universe
pushScreen ml u = u & uvScreenLayers .:~ ml u