Allow scrolling within a larger selection to not remove larger selection

src/Dodge/Data/HUD.hs

@@ -5,6 +5,7 @@
 
 module Dodge.Data.HUD where
 
+import qualified Data.IntSet as IS
 import Dodge.Data.Item.Location
 import NewInt
 import Control.Lens
@@ -18,10 +19,10 @@ data HUDElement
     = DisplayInventory
         { _subInventory :: SubInventory
         , _diSections :: IMSS ()
-        , _diSelection :: Maybe (Int, Int)
+        , _diSelection :: Maybe (Int, Int, IntSet)
         , _diInvFilter :: Maybe String
         , _diCloseFilter :: Maybe String
-        , _diSelectionExtra :: IntSet -- this should probably be placed within _diSelection
+--        , _diSelectionExtra :: IntSet -- this should probably be placed within _diSelection
         -- would lead to inconsistency with _ciSelection
         }
     | DisplayCarte
@@ -39,7 +40,7 @@ data SubInventory
       ExamineInventory
     | CombineInventory
         { _ciSections :: IntMap (SelectionSection CombinableItem)
-        , _ciSelection :: Maybe (Int, Int)
+        , _ciSelection :: Maybe (Int, Int, IS.IntSet)
         , _ciFilter :: Maybe String
         }
     | LockedInventory