Cleanup

src/Dodge/Room/Warning.hs

@@ -1,6 +1,7 @@
 --{-# LANGUAGE TupleSections #-}
 module Dodge.Room.Warning (warningRooms) where
 
+import Dodge.Default.Terminal
 import Dodge.Data.BlBl
 import Color
 import qualified Data.Map.Strict as M
@@ -16,7 +17,6 @@ import Dodge.Room.Procedural
 import Dodge.Room.Tanks
 import Dodge.Terminal
 import Dodge.Tree
-import Dodge.WorldEffect
 import Geometry
 import LensHelp
 import RandomHelp
@@ -46,6 +46,15 @@ addWarningTerminal str outplid = (rmName .++~ "warningTerm-")
             & tmToggles .~ M.fromList
                     [("DOOR", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))]
 
+lineOutputTerminal :: [TerminalLine] -> Terminal
+lineOutputTerminal tls =
+    defaultTerminal
+        { _tmDisplayedLines = []
+        , _tmFutureLines = []
+        , _tmBootLines = connectionBlurbLines tls
+        , _tmDeathEffect = TmWdWdDoDeathTriggers
+        }
+
 moveToSideFirstOutLink :: RoomPos -> Room -> Maybe (Point2, Float)
 moveToSideFirstOutLink rp rm = do
     0 <- rp ^? rpLinkStatus . rplsChildNum