Simplify analyser terminal

src/Dodge/Placement/Instance/Analyser.hs

@@ -4,7 +4,7 @@ import Color
 import Dodge.Data.GenWorld
 import Dodge.Default
 import Dodge.Placement.Instance
-import Dodge.Terminal
+--import Dodge.Terminal
 import LensHelp
 
 analyser :: ProximityRequirement -> PlacementSpot -> PlacementSpot -> Placement
@@ -13,14 +13,11 @@ analyser proxreq pslight psmc = extTrigLitPos pslight $ \tp ->
         plSpot .~ psmc $
             putTerminal (dark magenta)
                 (themachine & mcMounts . at OTTrigger .~ _plMID tp)
-                tparams -- (linksensortotrigger tp)
+                tparams
   where
-    tparams = textTerminal & tmCommands .:~ TCSensorInfo
-    --    linksensortotrigger tp _ mc
-    --        = triggers . ix (fromJust $ _plMID tp) .~ const (_sensToggle $ _mcSensor mc)
+    tparams = defaultTerminal & tmStatus .~ TerminalLineRead
     themachine =
         defaultMachine & mcColor .~ aquamarine
-            --        & mcUpdate .~ mcProximitySensorUpdate
             & mcType .~ McTerminal
             & mcHP .~ 100
             & mcType .~ McSensor (defaultProximitySensor{_proxRequirement = proxreq})

src/Dodge/Placement/Instance/Terminal.hs

@@ -5,13 +5,13 @@ module Dodge.Placement.Instance.Terminal (
     terminalColor,
 ) where
 
-import Dodge.WorldEffect
 import Color
 import Data.Maybe
 import Dodge.Data.GenWorld
 import Dodge.Default
 import Dodge.LevelGen.PlacementHelper
 import Dodge.SoundLogic
+import Dodge.WorldEffect
 import Geometry
 import LensHelp
 
@@ -20,7 +20,11 @@ putTerminalImediateAccess = putTerminalFull f
   where
     f tmpl _ _ = Just $ sps0 $ PutWorldUpdate $ const $ accessTerminal (tmpl ^?! plMID . _Just)
 
-putTerminalFull ::(Placement -> Placement -> Placement -> Maybe Placement) ->  Color -> Machine -> Terminal -> 
+putTerminalFull ::
+    (Placement -> Placement -> Placement -> Maybe Placement) ->
+    Color ->
+    Machine ->
+    Terminal ->
     Placement
 putTerminalFull f col mc tm =
     ps0PushPS (PutTerminal (tm & tmExternalColor .~ col)) $
@@ -31,6 +35,7 @@ putTerminalFull f col mc tm =
                         ( PutMachine
                             (reverse $ square 10)
                             ( mc & mcMounts . at OTButton ?~ fromJust (_plMID btpl)
+                                & mcMounts . at OTTerminal .~ _plMID tmpl
                                 & mcCloseSound ?~ fridgeHumS
                             )
                             defaultSensorWall