Continue work on terminals

src/Dodge/Data/Machine/Sensor/Type.hs

@@ -1,19 +1,22 @@
-{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
-module Dodge.Data.Machine.Sensor.Type
-    where
+
+module Dodge.Data.Machine.Sensor.Type where
+
 import Data.Aeson
 import Data.Aeson.TH
 
-data SensorType 
+data SensorType
     = LaserSensor
     | ElectricSensor
     | ThermalSensor
     | PhysicalSensor
-    deriving (Eq,Ord,Show,Read,Bounded,Enum)
+    deriving (Eq, Ord, Show, Read, Bounded, Enum)
 
 deriveJSON defaultOptions ''SensorType
+
 instance ToJSONKey SensorType
+
 instance FromJSONKey SensorType

src/Dodge/Data/Terminal.hs

@@ -80,6 +80,8 @@ data TerminalCommandEffect
 data TCom = TCInfo String String
     | TCBase
     | TCDamageCommand
+    | TCSensorInfo
+    | TCToggles
 
 --data TEff = TEff
 --    { _teffHelp :: String
@@ -95,6 +97,7 @@ data TmWdWd
     | TmTmClearDisplayedLines
     | TmTmSetStatus TerminalStatus
     | TmGetDamageCoding SensorType
+    | TmGetSensor String
 --    | TmDisplayCommands
 
 makeLenses ''Terminal