Separate selected item from extra selected items

src/Dodge/Data/HUD.hs

@@ -5,9 +5,9 @@
 
 module Dodge.Data.HUD where
 
-import Data.IntSet (IntSet)
-import Data.IntMap
 import Control.Lens
+import Data.IntMap
+import Data.IntSet (IntSet)
 import Dodge.Data.Button
 import Dodge.Data.Combine
 import Dodge.Data.FloorItem
@@ -21,7 +21,8 @@ data HUDElement
         , _diSelection :: Maybe (Int, Int)
         , _diInvFilter :: Maybe String
         , _diCloseFilter :: Maybe String
-        , _diSelectionExtra :: IntSet
+        , _diSelectionExtra :: IntSet -- this should probably be placed within _diSelection
+        -- would lead to inconsistency with _ciSelection
         }
     | DisplayCarte
 
@@ -33,9 +34,9 @@ data HUDElement
 
 data SubInventory
     = NoSubInventory
---        { _nsSelected :: MouseInventorySelection
---        }
-    | ExamineInventory
+    | --        { _nsSelected :: MouseInventorySelection
+      --        }
+      ExamineInventory
     | CombineInventory
         { _ciSections :: IntMap (SelectionSection CombinableItem)
         , _ciSelection :: Maybe (Int, Int)
@@ -55,4 +56,5 @@ data HUD = HUD
 makeLenses ''HUD
 makeLenses ''HUDElement
 makeLenses ''SubInventory
+
 --makeLenses ''MouseInventorySelection