diff --git a/ghcidOutput b/ghcidOutput index 103998d4e..1158ceb02 100644 --- a/ghcidOutput +++ b/ghcidOutput @@ -1 +1 @@ -All good (594 modules, at 18:28:59) +All good (594 modules, at 18:51:13) diff --git a/src/Dodge/Update/Input/InGame.hs b/src/Dodge/Update/Input/InGame.hs index 4000690ed..420157547 100644 --- a/src/Dodge/Update/Input/InGame.hs +++ b/src/Dodge/Update/Input/InGame.hs @@ -142,7 +142,9 @@ updateMouseReleaseInGame w = case w ^. input . mouseContext of OverInvDragSelect ssel mesel | ScancodeLShift `M.member` (w ^. input . pressedKeys) -> w & input . mouseContext .~ MouseInGame & hud . hudElement . diSelection . _Just . _3 %~ getuniques - (maybe mempty (h ssel) (mesel ^? _Just . _2)) + (maybe mempty (h ssel) + (guard (ssel ^? _1 == w ^? hud . hudElement . diSelection . _Just . _1) + >> mesel ^? _Just . _2)) -- note this assumes that mesel isn't outside the first -- selection, this should perhaps just be made impossible by -- removing the first part of the tuple