diff --git a/src/Dodge/Room/Warning.hs b/src/Dodge/Room/Warning.hs
index daf23a950..3105573b3 100644
--- a/src/Dodge/Room/Warning.hs
+++ b/src/Dodge/Room/Warning.hs
@@ -55,12 +55,6 @@ addDoorAtNthLinkToggleInterrupt j x i =
         (defaultMachine & mcType .~ McTrigger (fromJust $ _plMID trpl)
             & mcHP .~ 100)
         (simpleTermMessage x)
---        lineOutputTerminal xs --(makeColorTermLine red "WARNING" : makeTermPara str)
---            & tmToggles
---                .~ M.fromList
---                    [("DOOR", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))
---                    ,("DOAR", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))
---                    ,("TEST", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))]
 
 
 addDoorAtNthLinkToggleTerminal :: Int -> [TerminalLine] -> Int -> Room -> Room
@@ -78,12 +72,11 @@ addDoorAtNthLinkToggleTerminal j xs i =
             & plExternalID
             ?~ i
     termMessages trpl =
-        lineOutputTerminal xs --(makeColorTermLine red "WARNING" : makeTermPara str)
+        lineOutputTerminal xs
             & tmToggles
                 .~ M.fromList
                     [("DOOR", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))
-                    ,("DOAR", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))
-                    ,("TEST", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))]
+                    ]
 
 addWarningTerminal :: String -> Int -> Room -> Room
 addWarningTerminal str =