Simplify analyser terminal

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