Improve terminal update/display

src/Dodge/Data/Terminal.hs

@@ -8,16 +8,16 @@ module Dodge.Data.Terminal (
     module Dodge.Data.Terminal.Status,
 ) where
 
-import Dodge.Data.Machine.Sensor.Type
-import Sound.Data
 import Color
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import qualified Data.Map.Strict as M
 import Dodge.Data.BlBl
+import Dodge.Data.Machine.Sensor.Type
 import Dodge.Data.Terminal.Status
 import Dodge.Data.WorldEffect
+import Sound.Data
 
 data Terminal = Terminal
     { _tmID :: Int
@@ -37,17 +37,18 @@ data Terminal = Terminal
 data TerminalLineString = TerminalLineConst String Color
 
 data TerminalLine = TLine
-        { _tlPause :: Int
-        , _tlString :: [TerminalLineString] -- World -> (String, Color)
-        , _tlEffect :: TmWdWd --Terminal -> World -> World
-        }
+    { _tlPause :: Int
+    , _tlString :: [TerminalLineString] -- World -> (String, Color)
+    , _tlEffect :: TmWdWd --Terminal -> World -> World
+    }
 
 data TerminalToggle = TerminalToggle
     { _ttTriggerID :: Int
     , _ttDeathEffect :: BlBl
     }
 
-data TCom = TCInfo String String -- this may not be necessary, to revisit
+data TCom
+    = TCInfo String String -- this may not be necessary, to revisit
     | TCBase
     | TCDamageCommand
     | TCSensorInfo