Simplify analyser machine

src/Dodge/Placement/Instance/Analyser.hs

@@ -1,7 +1,4 @@
-module Dodge.Placement.Instance.Analyser (
-    analyser,
-    analyserWithPrompt,
-) where
+module Dodge.Placement.Instance.Analyser (analyser) where
 
 import Dodge.Data.GenWorld
 import Dodge.Default
@@ -9,20 +6,14 @@ import Dodge.Placement.Instance
 import LensHelp
 
 analyser :: ProximitySensorType -> PlacementSpot -> PlacementSpot -> Placement
-analyser = analyserWithPrompt []
-
-analyserWithPrompt ::
-    [TerminalLine] -> ProximitySensorType -> PlacementSpot -> PlacementSpot -> Placement
-analyserWithPrompt l pst pslight psmc = extTrigLitPos pslight $ \tp ->
+analyser pst pslight psmc = extTrigLitPos pslight $ \tp ->
     Just $
         plSpot .~ psmc $
             putTerminal
                 (themachine & mcMounts . at OTTrigger .~ _plMID tp)
                 tparams
   where
-    tparams =
-        defaultTerminal & tmStatus .~ TerminalLineRead
-            & tmFutureLines .~ l
+    tparams = defaultTerminal & tmStatus .~ TerminalLineRead
     themachine =
         defaultMachine -- & mcColor .~ aquamarine
             & mcHP .~ 10000

src/Dodge/Placement/Instance/Terminal.hs

@@ -23,7 +23,6 @@ putTerminalFull ::
     Terminal ->
     Placement
 putTerminalFull f mc tm =
-    --ps0PushPS (PutTerminal (tm & tmExternalColor .~ col)) $
     ps0PushPS (PutTerminal tm) $
         \tmpl -> Just $
             ps0PushPS (PutButton defaultButton) $