module Text.Show.Text.Data.Semigroup (
showbMinPrec
, showbMaxPrec
, showbFirstPrec
, showbLastPrec
, showbWrappedMonoidPrec
, showbOptionPrec
) where
import Data.Semigroup (Min, Max, First, Last, WrappedMonoid, Option)
import Prelude hiding (Show)
import Text.Show.Text (Show(showbPrec), Builder)
import Text.Show.Text.TH (deriveShowPragmas, defaultInlineShowbPrec)
showbMinPrec :: Show a => Int -> Min a -> Builder
showbMinPrec = showbPrec
showbMaxPrec :: Show a => Int -> Max a -> Builder
showbMaxPrec = showbPrec
showbFirstPrec :: Show a => Int -> First a -> Builder
showbFirstPrec = showbPrec
showbLastPrec :: Show a => Int -> Last a -> Builder
showbLastPrec = showbPrec
showbWrappedMonoidPrec :: Show m => Int -> WrappedMonoid m -> Builder
showbWrappedMonoidPrec = showbPrec
showbOptionPrec :: Show a => Int -> Option a -> Builder
showbOptionPrec = showbPrec
$(deriveShowPragmas defaultInlineShowbPrec ''Min)
$(deriveShowPragmas defaultInlineShowbPrec ''Max)
$(deriveShowPragmas defaultInlineShowbPrec ''First)
$(deriveShowPragmas defaultInlineShowbPrec ''Last)
$(deriveShowPragmas defaultInlineShowbPrec ''WrappedMonoid)
$(deriveShowPragmas defaultInlineShowbPrec ''Option)