Commit before unifying placements in rooms (in/out)

2022-06-11 12:37:56 +01:00
parent ad576014fb
commit 7b00867f6d
6 changed files with 24 additions and 22 deletions
@@ -1,3 +1,4 @@
+{-# LANGUAGE TupleSections #-}
 module Dodge.Terminal where
 import Dodge.Data
 import Dodge.Default
@@ -245,4 +246,5 @@ connectionBlurb1 =
    ,TerminalLineDisplay 0 (const ("CONNECTING",termTextColor))
    ,TerminalLineDisplay 10 (const ("...",termTextColor))
    ,TerminalLineDisplay 10 (const ("CONNECTED",termTextColor))
-    ,TerminalLineTerminalEffect 0 (tmStatus .~ TerminalReady)]
+    ] ++ map (TerminalLineDisplay 10 . const . (,white) . show) [(1::Int)..50] ++
+    [TerminalLineTerminalEffect 0 (tmStatus .~ TerminalReady)]