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

Refactor

Browse Source
This commit is contained in:
justin
2025-01-06 12:10:25 +00:00
parent faded4a3c5
commit f9cf3c2ea6
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update/Input/InGame.hs
+6 -2
View File
@@ -288,10 +288,14 @@ startDrag (a, b) cfig w = setcontext
concurrentIS :: IS.IntSet -> Bool concurrentIS :: IS.IntSet -> Bool
concurrentIS = go . IS.minView concurrentIS = go . IS.minView
where where
go Nothing = True go x = fromMaybe True $ do
go (Just (i, is)) = fromMaybe True $ do (i,is) <- x
(j, js) <- IS.minView is (j, js) <- IS.minView is
return $ i + 1 == j && go (Just (j, js)) return $ i + 1 == j && go (Just (j, js))
-- go Nothing = True
-- go (Just (i, is)) = fromMaybe True $ do
-- (j, js) <- IS.minView is
-- return $ i + 1 == j && go (Just (j, js))
collectInvItems :: Int -> IS.IntSet -> World -> World collectInvItems :: Int -> IS.IntSet -> World -> World
collectInvItems secid is w = fromMaybe w $ do collectInvItems secid is w = fromMaybe w $ do