Fix bug not allowing dragging at extreme bottom edge

2024-11-25 20:41:30 +00:00
parent 3c75b78803
commit 00d8190ffc
3 changed files with 18 additions and 2 deletions
@@ -292,7 +292,7 @@ shiftInvItems k x ab bn xs ss w = setSelWhileDragging . fromMaybe w $ do
            return $ shiftInvItemsUp k xs w
        else do
            guard $ not . null . snd $ IM.split maxi ss
-            guard $ Just (k,maxi+1) < bn
+            guard $ Just (k,maxi+1) /= bn
            return $ shiftInvItemsDown k xs w

 setSelWhileDragging :: World -> World