{-# LANGUAGE CPP #-}
#if !defined(mingw32_HOST_OS)
{-# LANGUAGE TemplateHaskell #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
#endif
module TextShow.System.Console.Terminfo () where
#if !defined(mingw32_HOST_OS)
import System.Console.Terminfo.Base (SetupTermError)
import System.Console.Terminfo.Color (Color)
import TextShow (TextShow(..), FromStringShow(..))
import TextShow.TH (deriveTextShow)
$(deriveTextShow ''Color)
instance TextShow SetupTermError where
showb :: SetupTermError -> Builder
showb = forall a. TextShow a => a -> Builder
showb forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. a -> FromStringShow a
FromStringShow
{-# INLINE showb #-}
#endif