Cleanup

2024-11-25 16:30:38 +00:00
parent 32f0d287e8
commit 83bcf3c0f7
4 changed files with 12 additions and 12 deletions
@@ -117,7 +117,7 @@ updateCloseObjects w =
  where
    g oldbts = intersect oldbts cbts `union` cbts
    f olditems = intersect olditems citems `union` citems
-    cbts = fmap _btID $ filter (isclose . _btPos) activeButtons
+    cbts = _btID <$> filter (isclose . _btPos) activeButtons
    citems =
        fmap _flItID
            . filter (isclose . _flItPos)