Commit before removing "un-input-able" terminals

src/Dodge/Placement/Instance/Analyser.hs

@@ -41,19 +41,14 @@ import Data.Maybe
 --import System.Random
 
 analyser 
-    :: [String] -- | initial text
-    -> String   -- | succeed text
-    -> String   -- | fail text
-    -> [String] -- | after text
-    -> (Machine -> World -> World)
+    :: (Machine -> World -> World)
     -> PlacementSpot
     -> PlacementSpot
     -> Placement
-analyser starts sucs _ afters upf pslight psmc = extTrigLitPos pslight $ \tp ->
+analyser upf pslight psmc = extTrigLitPos pslight $ \tp ->
     Just $ plSpot .~ psmc $ putTerminal' aquamarine tparams (termupdate tp)
   where
-    tparams = defaultTermParams & tmFutureLines ++.~ 
-        (map makeTermLine starts ++ [makeTermLine sucs] ++ map makeTermLine afters)
+    tparams = defaultTermParams & tmScrollCommands .:~ sensorCommand
     termupdate tp _ mc = upf mc . (triggers . ix (fromJust $ _plMID tp) .~ const (_sensToggle $ _mcSensor mc))
 
 analyserTest :: (World -> Bool) -> Machine -> World -> World