Refactor

2025-01-06 12:10:25 +00:00
parent faded4a3c5
commit f9cf3c2ea6
1 changed files with 6 additions and 2 deletions
@@ -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