justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
justin
2024-11-25 11:23:01 +00:00
parent cd3efa9124
commit 348da9e6b6
2 changed files with 2 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ghcidOutput
+1 -5
View File
@@ -1,5 +1 @@
/home/justin/Haskell/loop/src/Dodge/Update/Input/InGame.hs:252:13-17: warning: [-Wunused-matches] All good (593 modules, at 11:22:57)
Defined but not used: ‘above’
|
252 | above <- ss ^? ix (mini - 1)
| ^^^^^
src/Dodge/Update/Input/InGame.hs
+1 -6
View File
@@ -100,8 +100,6 @@ updateMouseHeldInGame cfig w = case w ^. input . mouseContext of
return $ if concurrentIS is return $ if concurrentIS is
then shiftInvItems k x ab bn is ss w then shiftInvItems k x ab bn is ss w
else collectInvItems is w else collectInvItems is w
-- let mpos = w ^. input . mousePos
-- return $ w & dragInvItems k xs cfig mpos ldp sss
_ -> w _ -> w
where where
ldp = invDisplayParams w ldp = invDisplayParams w
@@ -249,13 +247,10 @@ shiftInvItems k x ab bn xs ss w = fromMaybe w $ do
(mini,_) <- IS.minView xs (mini,_) <- IS.minView xs
if x < (k,mini) if x < (k,mini)
then do then do
above <- ss ^? ix (mini - 1) _ <- ss ^? ix (mini - 1)
guard $ Just (k,mini-1) /= ab guard $ Just (k,mini-1) /= ab
return $ shiftInvItemsUp k xs w return $ shiftInvItemsUp k xs w
else do else do
--guard $ x > (k,maxi)
--maxss <- IM.lookupMax ss
--guard (maxi < fst maxss)
_ <- ss ^? ix (maxi + 1) _ <- ss ^? ix (maxi + 1)
guard $ Just (k,maxi+1) < bn guard $ Just (k,maxi+1) < bn
return $ shiftInvItemsDown k xs w return $ shiftInvItemsDown k xs w