diff --git a/src/Dodge/Update/Input/InGame.hs b/src/Dodge/Update/Input/InGame.hs index 0edd28413..0a18ad4fa 100644 --- a/src/Dodge/Update/Input/InGame.hs +++ b/src/Dodge/Update/Input/InGame.hs @@ -155,7 +155,7 @@ updateMouseReleaseInGame w = case w ^. input . mouseContext of & hud . hudElement . diSelection . _Just . _3 %~ const mempty OverInvDragSelect ssel (Just esel) -> w & input . mouseContext .~ MouseInGame - & augInvDirectSelect (f (min ssel (fst ssel,esel)) (h ssel esel)) + & augInvDirectSelect (f (fst ssel,esel) (h ssel esel)) _ -> w where getuniques x y = IS.union x y IS.\\ IS.intersection x y