From f9cf3c2ea636931e45d39e17ff0d1edd39d755ed Mon Sep 17 00:00:00 2001 From: justin Date: Mon, 6 Jan 2025 12:10:25 +0000 Subject: [PATCH] Refactor --- src/Dodge/Update/Input/InGame.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/Dodge/Update/Input/InGame.hs b/src/Dodge/Update/Input/InGame.hs index 39b8032dd..c3482071c 100644 --- a/src/Dodge/Update/Input/InGame.hs +++ b/src/Dodge/Update/Input/InGame.hs @@ -288,10 +288,14 @@ startDrag (a, b) cfig w = setcontext concurrentIS :: IS.IntSet -> Bool concurrentIS = go . IS.minView where - go Nothing = True - go (Just (i, is)) = fromMaybe True $ do + go x = fromMaybe True $ do + (i,is) <- x (j, js) <- IS.minView is 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 secid is w = fromMaybe w $ do