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