Commit before removing "un-input-able" terminals

src/Dodge/Room/LasTurret.hs

@@ -85,12 +85,6 @@ keyCardRoomRunPast keyid rmid = do
 
 keyCardAnalyserByDoor :: Int -> Int -> Room -> Room
 keyCardAnalyserByDoor keyid = analyserByDoor 
-    [ bar
-    , hic
-    , bar ] 
-    "UNLOCKED" 
-    ("REQUIRES KEYCARD-"++ show keyid)
-    (bar : replicate 2 "")
     (machineAddSound fridgeHumS $ testYouHave (KEYCARD 0))
   where
     hic = "SECURITY CHECK"
@@ -98,27 +92,20 @@ keyCardAnalyserByDoor keyid = analyserByDoor
 
 healthAnalyserByDoor :: Int -> Room -> Room
 healthAnalyserByDoor = analyserByDoor 
-    [ bar
-    , hic
-    , bar ] 
-    "PASSED" 
-    "REQUIRES HEALTH 1100" 
-    (bar : replicate 2 "")
     (machineAddSound fridgeHumS $ testYourHealth 1100)
   where
     hic = "HEALTH INTEGRITY CHECK"
     bar = replicate (length hic) '-'
 
-analyserByDoor :: [String] -> String -> String -> [String]
-    -> (Machine -> World -> World) -> Int -> Room -> Room
-analyserByDoor sa sb sc sd mcf outplid rm = rm 
+analyserByDoor :: (Machine -> World -> World) -> Int -> Room -> Room
+analyserByDoor mcf outplid rm = rm 
     & rmPmnts .++~ 
         [ psPt atFstLnkOut $ PutShape $ colorSH yellow 
             $ barPP 1.5 (V3 20 (-1) 0) (V3 20 (-1) 80)
         ]
     & rmOutPmnt .~ 
         [OutPlacement 
-            (analyser sa sb sc sd
+            (analyser
                 mcf
                 (atFstLnkOutShiftBy (\(p,a) -> (p +.+ rotateV a (V2 18.5 (-2.5)), a)))
                 (atFstLnkOutShiftBy sensorshift)