module Text.Show.Text.Data.Ord (
showbOrdering
#if MIN_VERSION_base(4,6,0)
, showbDownPrec
#endif
) where
import Data.Text.Lazy.Builder (Builder)
import Prelude hiding (Show)
import Text.Show.Text.Class (Show(showb))
#if MIN_VERSION_base(4,6,0)
import Data.Ord (Down(..))
import GHC.Show (appPrec, appPrec1)
import Text.Show.Text.Class (showbPrec, showbParen)
import Text.Show.Text.Utils ((<>))
#endif
showbOrdering :: Ordering -> Builder
showbOrdering LT = "LT"
showbOrdering EQ = "EQ"
showbOrdering GT = "GT"
instance Show Ordering where
showb = showbOrdering
#if MIN_VERSION_base(4,6,0)
showbDownPrec :: Show a => Int -> Down a -> Builder
showbDownPrec p (Down d) = showbParen (p > appPrec) $ "Down " <> showbPrec appPrec1 d
instance Show a => Show (Down a) where
showbPrec = showbDownPrec
#endif