Commit before explicit terminals list

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)
     })