module Text.Show.Text.Data.Ord (
showbOrdering
#if MIN_VERSION_base(4,6,0)
, showbDownPrec
#endif
) where
import Data.Text.Lazy.Builder (Builder)
import Text.Show.Text.Classes (showb)
import Text.Show.Text.TH.Internal (deriveShowPragmas, defaultInlineShowb)
#if MIN_VERSION_base(4,6,0)
import Data.Ord (Down)
import Prelude hiding (Show)
import Text.Show.Text.Classes (Show(showbPrec), Show1(showbPrec1))
import Text.Show.Text.TH.Internal (defaultInlineShowbPrec)
#endif
#include "inline.h"
showbOrdering :: Ordering -> Builder
showbOrdering = showb
$(deriveShowPragmas defaultInlineShowb ''Ordering)
#if MIN_VERSION_base(4,6,0)
showbDownPrec :: Show a => Int -> Down a -> Builder
showbDownPrec = showbPrec
$(deriveShowPragmas defaultInlineShowbPrec ''Down)
instance Show1 Down where
showbPrec1 = showbPrec
#endif