module Text.Show.Text.Data.Tagged (showbTaggedPrec) where
import Data.Tagged (Tagged(..))
import Prelude hiding (Show)
import Text.Show.Text (Show(showbPrec), Show1(showbPrec1),
Builder, showbUnary)
#include "inline.h"
showbTaggedPrec :: Show b => Int -> Tagged s b -> Builder
showbTaggedPrec p (Tagged b) = showbUnary "Tagged" p b
instance Show b => Show (Tagged s b) where
showbPrec = showbTaggedPrec
INLINE_INST_FUN(showbPrec)
instance Show1 (Tagged s) where
showbPrec1 = showbTaggedPrec
INLINE_INST_FUN(showbPrec1)