Implement terminals

src/Dodge/Combine.hs

@@ -104,12 +104,12 @@ combineModules = mergeA
     h _ im _ = ([],im)
 
 toggleCombineInv :: World -> World
-toggleCombineInv w = case _inventoryMode w of
-    CombineInventory _ -> w & inventoryMode .~ TopInventory
+toggleCombineInv w = case _hudElement (_hud w) of
+    DisplayInventory CombineInventory {} -> w & hud . hudElement .~ DisplayInventory NoSubInventory
     _ -> w & enterCombineInv
 
 enterCombineInv :: World -> World
-enterCombineInv w = w & inventoryMode .~ CombineInventory mi
+enterCombineInv w = w & hud . hudElement .~ DisplayInventory (CombineInventory mi)
   where
     mi = 0 <$ listToMaybe (combineItemListYou w)