Fix dragging over items larger than the selection group

There is still a further choice/improvement to be made here, but at least dragging shouldn't glitch out as it currently stands
2024-11-25 11:09:58 +00:00
parent 905be15a33
commit 2c6037d852
6 changed files with 170 additions and 140 deletions
@@ -1 +1,10 @@
-All good (593 modules, at 10:06:01)
+/home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:247:22-23: warning: [-Wunused-matches]
+    Defined but not used: ‘bn’
+    |
+247 | shiftInvItems k x ab bn xs ss w = fromMaybe w $ do
+    |                      ^^
+/home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:252:13-17: warning: [-Wunused-matches]
+    Defined but not used: ‘above’
+    |
+252 |             above <- ss ^? ix (mini - 1)
+    |             ^^^^^