|
module PrintColor (PrintColor(..)) where
|
|
|
|
import Relude
|
|
|
|
import Polysemy (Members, Sem)
|
|
import Polysemy.Output (Output)
|
|
import Polysemy.Sgr (Sgr, SgrRegion)
|
|
|
|
class PrintColor a where
|
|
printColor :: Members [Output Text, Sgr, SgrRegion] r => a -> Sem r ()
|