Refactor floor items, removing ids (not fully checked)

2025-08-23 22:10:33 +01:00
parent 32d7120177
commit fcccd63844
24 changed files with 94 additions and 109 deletions
@@ -64,7 +64,7 @@ getCommand w tm = \case
    TCSensorInfo -> sensorCommand w tm

 damageCodeCommand :: World -> Terminal -> PTE.TrieMap Char (PTE.TrieMap Char [TerminalLine])
-damageCodeCommand w tm 
+damageCodeCommand w _ 
    = PTE.singleton "DAMAGECODE" $ PTE.fromList $ mapMaybe f [minBound ..]
  where
    f :: SensorType -> Maybe (String, [TerminalLine])