module Text.Show.Text.System.Console.Terminfo (showbColorPrec, showbSetupTermError) where
import Prelude hiding (Show)
import System.Console.Terminfo.Base (SetupTermError)
import System.Console.Terminfo.Color (Color)
import Text.Show.Text (Show(showb, showbPrec), Builder, FromStringShow(..))
import Text.Show.Text.TH (deriveShow)
#include "inline.h"
showbColorPrec :: Int -> Color -> Builder
showbColorPrec = showbPrec
showbSetupTermError :: SetupTermError -> Builder
showbSetupTermError = showb . FromStringShow
$(deriveShow ''Color)
instance Show SetupTermError where
showb = showbSetupTermError
INLINE_INST_FUN(showb)