Move towards simplifying terminal lines/effects

src/Dodge/Terminal/Color.hs

@@ -2,6 +2,7 @@ module Dodge.Terminal.Color (
     termScreenColor,
 ) where
 
+import Dodge.Data.Terminal.Status
 import Dodge.Data.Terminal
 import Color
 import Control.Lens
@@ -10,4 +11,5 @@ termScreenColor :: Terminal -> Maybe Color
 termScreenColor tm = case tm ^. tmStatus of
     TerminalOff -> Nothing
     TerminalTextInput _ -> Just green
+    TerminalPressTo{} -> Just green
     TerminalBusy -> Just white