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

Cleanup

Browse Source
This commit is contained in:
justin
2024-09-12 18:30:38 +01:00
parent e69abf1715
commit d2e1b054d0
4 changed files with 24 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update/Input/ScreenLayer.hs
+1 -1
View File
@@ -24,7 +24,7 @@ updateUseInputOnScreen sl = case sl of
doInputScreenInput :: String -> Universe -> Universe
doInputScreenInput s u =
u & doTextInputOver (uvScreenLayers . _head . scInput)
u & doTextInputOverUniverse (uvScreenLayers . _head . scInput)
& checkEndStatus
where
ispressed = (`M.member` (u ^. uvWorld . input . pressedKeys))