14 lines
298 B
Haskell
14 lines
298 B
Haskell
module Dodge.Terminal.Color (
|
|
termScreenColor,
|
|
) where
|
|
|
|
import Dodge.Data.Terminal
|
|
import Color
|
|
import Control.Lens
|
|
|
|
termScreenColor :: Terminal -> Maybe Color
|
|
termScreenColor tm = case tm ^. tmStatus of
|
|
TerminalOff -> Nothing
|
|
TerminalReady -> Just green
|
|
TerminalBusy -> Just white
|