Reinstate damagecode terminal commands

src/Dodge/Data/Terminal.hs

@@ -8,6 +8,7 @@ module Dodge.Data.Terminal (
     module Dodge.Data.Terminal.Status,
 ) where
 
+import Dodge.Data.Machine.Sensor.Type
 import Sound.Data
 import Color
 import Control.Lens
@@ -69,15 +70,16 @@ data TerminalCommandEffect
     | TerminalCommandEffectSingleCommand WdWd [String]
     | TerminalCommandEffectNone
 
-data TerminalCommand = TerminalCommand
-    { _tcString :: String
-    , _tcAlias :: [String]
-    , _tcHelp :: String
-    , _tcEffect :: TerminalCommandEffect -- Terminal -> World -> EffectArguments
-    }
+--data TerminalCommand = TerminalCommand
+--    { _tcString :: String
+--    , _tcAlias :: [String]
+--    , _tcHelp :: String
+--    , _tcEffect :: TerminalCommandEffect -- Terminal -> World -> EffectArguments
+--    }
 
 data TCom = TCInfo String String
     | TCBase
+    | TCDamageCommand
 
 --data TEff = TEff
 --    { _teffHelp :: String
@@ -92,13 +94,14 @@ data TmWdWd
     | TmWdWdDoDeathTriggers
     | TmTmClearDisplayedLines
     | TmTmSetStatus TerminalStatus
+    | TmGetDamageCoding SensorType
 --    | TmDisplayCommands
 
 makeLenses ''Terminal
 makeLenses ''TerminalLine
 makeLenses ''TerminalToggle
 makeLenses ''EffectArguments
-makeLenses ''TerminalCommand
+--makeLenses ''TerminalCommand
 makeLenses ''TCom
 concat
     <$> mapM
@@ -108,7 +111,7 @@ concat
         , ''TerminalToggle
         , ''EffectArguments
         , ''TerminalCommandEffect
-        , ''TerminalCommand
+--        , ''TerminalCommand
         , ''TCom
         , ''TmWdWd
         , ''Terminal