Fix bug when dragging filtered items

ghcidOutput

@@ -1 +1 @@
-All good (594 modules, at 19:44:22)
+All good (594 modules, at 20:03:59)

src/Dodge/Update/Input/InGame.hs

@@ -286,11 +286,12 @@ shiftInvItems k x ab bn xs ss w = setSelWhileDragging . fromMaybe w $ do
     (mini,_) <- IS.minView xs
     if x < (k,mini)
         then do
-            _ <- ss ^? ix (mini - 1)
+            --_ <- ss ^? ix (mini - 1)
+            guard $ not . null . fst $ IM.split mini ss
             guard $ Just (k,mini-1) /= ab
             return $ shiftInvItemsUp k xs w
         else do
-            _ <- ss ^? ix (maxi + 1)
+            guard $ not . null . snd $ IM.split maxi ss
             guard $ Just (k,maxi+1) < bn
             return $ shiftInvItemsDown k xs w