Cleanup

2024-11-17 13:03:46 +00:00
parent 5b6c356bab
commit d5be125a3b
13 changed files with 156 additions and 169 deletions
@@ -62,12 +62,12 @@ mouseClickOptionsList u = fromMaybe u $ do
    Just $ case u ^. uvWorld . input . mouseButtons . at ButtonLeft of
        Just 0 -> fromMaybe u $ do
            i <- u ^? uvWorld . input . mouseContext . mcoMenuClick
-            f <- sl ^? slItems . ix i . siPayload . _1
+            f <- sl ^? ix i . siPayload . _1
            return $ f u
        _ -> case u ^. uvWorld . input . mouseButtons . at ButtonRight of
            Just 0 -> fromMaybe u $ do
                i <- u ^? uvWorld . input . mouseContext . mcoMenuClick
-                f <- sl ^? slItems . ix i . siPayload . _2
+                f <- sl ^? ix i . siPayload . _2
                return $ f u
            _ -> u