module Text.Show.Text.Data.Ord (
showbOrdering
#if MIN_VERSION_base(4,6,0)
, showbDownPrecWith
#endif
) where
import Data.Text.Lazy.Builder (Builder)
import Prelude hiding (Show)
import Text.Show.Text.Classes (showb)
import Text.Show.Text.TH.Internal (deriveShow)
#if MIN_VERSION_base(4,6,0)
import Data.Ord (Down)
import Prelude hiding (Show)
import Text.Show.Text.Classes (showbPrecWith)
import Text.Show.Text.TH.Internal (deriveShow1)
#endif
#include "inline.h"
showbOrdering :: Ordering -> Builder
showbOrdering = showb
#if MIN_VERSION_base(4,6,0)
showbDownPrecWith :: (Int -> a -> Builder) -> Int -> Down a -> Builder
showbDownPrecWith = showbPrecWith
#endif
$(deriveShow ''Ordering)
#if MIN_VERSION_base(4,6,0)
$(deriveShow ''Down)
$(deriveShow1 ''Down)
#endif