module Color.Print (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 ()