Broken: refactor terminals

src/Dodge/Room/Warning.hs

@@ -1,5 +1,6 @@
 --{-# LANGUAGE TupleSections #-}
 module Dodge.Room.Warning where
+import Dodge.WorldEffect
 import Dodge.Cleat
 import Dodge.Terminal
 import Dodge.PlacementSpot
@@ -44,7 +45,7 @@ addWarningTerminal str outplid = (rmName .++~ "warningTerm-")
     termMessages trpl = lineOutputTerminal (makeColorTermLine red "WARNING":makeTermPara str)
         & tmScrollCommands .:~ toggleCommand
         & tmToggles .~ M.fromList 
-            [("DOOR",TerminalToggle (fromJust $ _plMID trpl) (const True))]
+            [("DOOR",TerminalToggle (fromJust $ _plMID trpl) (BlConst True))]
 
 moveToSideFirstOutLink :: RoomPos -> Room -> Maybe (Point2,Float)
 moveToSideFirstOutLink rp rm = case rp ^? rpLinkStatus . rplsChildNum of