Commit before explicit terminals list

src/Dodge/Data.hs

@@ -948,7 +948,7 @@ data Block = Block
 data BlockMaterial = WoodBlock | DirtBlock | StoneBlock | GlassBlock | MetalBlock
 data Terminal = Terminal
     { _tmID         :: Int 
-    , _tmParams     :: TerminalParams
+    , _tmProgram    :: Terminal -> World -> TerminalParams
     , _tmButtonID   :: Int
     , _tmMachineID  :: Int
     , _tmName       :: String

src/Dodge/Placement/Instance/Analyser.hs

@@ -1,5 +1,5 @@
 module Dodge.Placement.Instance.Analyser 
-    ( analyser'
+    ( analyser
     , testYouHave
     , testYourHealth
     ) where
@@ -48,7 +48,7 @@ initMCUpdate initup f mc
     = (machines . ix (_mcID mc) . mcUpdate .~ f)
     . initup mc
 
-analyser' 
+analyser 
     :: [String] -- | initial text
     -> String   -- | succeed text
     -> String   -- | fail text
@@ -57,7 +57,7 @@ analyser'
     -> PlacementSpot
     -> PlacementSpot
     -> Placement
-analyser' starts sucs fails afters upf pslight psmc = extTrigLitPos pslight $ \tp ->
+analyser starts sucs fails afters upf pslight psmc = extTrigLitPos pslight $ \tp ->
     Just $ updatebuttonname $ plSpot .~ psmc $ putTerminal' aquamarine (termupdate tp)
   where
     termupdate tp btid = initMCUpdate

src/Dodge/Placement/Instance/Terminal.hs

@@ -42,7 +42,7 @@ putTerminal col f = ps0PushPSw PutNothing $ \_ _ -> Just $
     $ \pl -> Just $ pt0 (PutMachine col (reverse $ square 10) defaultMachine
     { _mcDraw = noPic . terminalShape col
     , _mcHP = 100
-    , _mcUpdate = basicMachineUpdate $ machineAddSound fridgeHumS (\_ -> id)
+    , _mcUpdate = basicMachineUpdate $ machineAddSound fridgeHumS (const id)
     , _mcDeath = \mc -> (buttons . at (fromJust (_plMID pl)) .~ Nothing)
         . makeExplosionAt (_mcPos mc)
     })

src/Dodge/Room/LasTurret.hs

@@ -118,7 +118,7 @@ analyserByDoor sa sb sc sd mcf outplid rm = rm
         ]
     & rmOutPmnt .~ 
         [OutPlacement 
-            (analyser' sa sb sc sd
+            (analyser sa sb sc sd
                 mcf
                 (atFstLnkOutShiftBy (\(p,a) -> (p +.+ rotateV a (V2 18.5 (-2.5)), a)))
                 (atFstLnkOutShiftBy sensorshift)