#if !defined(mingw32_HOST_OS)
#endif
module TextShow.System.Console.Terminfo (
#if defined(mingw32_HOST_OS)
) where
#else
showbColorPrec
, showbSetupTermError
) where
import System.Console.Terminfo.Base (SetupTermError)
import System.Console.Terminfo.Color (Color)
import TextShow (TextShow(showb, showbPrec), Builder, FromStringShow(..))
import TextShow.TH (deriveTextShow)
#include "inline.h"
showbColorPrec :: Int -> Color -> Builder
showbColorPrec = showbPrec
showbSetupTermError :: SetupTermError -> Builder
showbSetupTermError = showb . FromStringShow
$(deriveTextShow ''Color)
instance TextShow SetupTermError where
showb = showbSetupTermError
INLINE_INST_FUN(showb)
#endif