Cleanup

src/Dodge/Data/HUD.hs

@@ -6,7 +6,6 @@
 module Dodge.Data.HUD where
 
 import Control.Lens
-import Data.IntMap.Strict (IntMap)
 import Dodge.Data.Button
 import Dodge.Data.Combine
 import Dodge.Data.FloorItem
@@ -22,11 +21,8 @@ data HUDElement
 
 data SubInventory
     = NoSubInventory
-    | ExamineInventory -- {_subInvMSel :: Maybe Int}
-    | CombineInventory
-        { _ciCombinations :: IntMap (SelectionItem CombinableItem)
-        , _ciSections :: SelectionSections CombinableItem
-        }
+    | ExamineInventory
+    | CombineInventory { _ciSections :: SelectionSections CombinableItem }
     | LockedInventory
     | DisplayTerminal {_termID :: Int}