module Text.Show.Text.Data.Ratio (showbRatioPrec) where
import Data.Monoid.Compat ((<>))
import Data.Text.Lazy.Builder (Builder)
import GHC.Real (Ratio(..), ratioPrec, ratioPrec1)
import Prelude hiding (Show)
import Text.Show.Text.Classes (Show(showbPrec), showbParen)
import Text.Show.Text.Data.Integral ()
#include "inline.h"
showbRatioPrec ::
#if MIN_VERSION_base(4,4,0)
Show a
#else
(Show a, Integral a)
#endif
=> Int -> Ratio a -> Builder
showbRatioPrec p (numer :% denom) = showbParen (p > ratioPrec) $
showbPrec ratioPrec1 numer
<> " % "
<> showbPrec ratioPrec1 denom
instance
#if MIN_VERSION_base(4,4,0)
Show a
#else
(Show a, Integral a)
#endif
=> Show (Ratio a) where
showbPrec = showbRatioPrec
INLINE_INST_FUN(showbPrec)