module TextShow.Data.Semigroup (
showbMinPrecWith
, showbMaxPrecWith
, showbFirstPrecWith
, showbLastPrecWith
, showbWrappedMonoidPrecWith
, showbOptionPrecWith
, showbArgPrecWith2
) where
import Data.Semigroup (Min, Max, First, Last, WrappedMonoid, Option, Arg)
import TextShow (Builder, showbPrecWith, showbPrecWith2)
import TextShow.TH (deriveTextShow, deriveTextShow1, deriveTextShow2)
#include "inline.h"
showbMinPrecWith :: (Int -> a -> Builder) -> Int -> Min a -> Builder
showbMinPrecWith = showbPrecWith
showbMaxPrecWith :: (Int -> a -> Builder) -> Int -> Max a -> Builder
showbMaxPrecWith = showbPrecWith
showbFirstPrecWith :: (Int -> a -> Builder) -> Int -> First a -> Builder
showbFirstPrecWith = showbPrecWith
showbLastPrecWith :: (Int -> a -> Builder) -> Int -> Last a -> Builder
showbLastPrecWith = showbPrecWith
showbWrappedMonoidPrecWith :: (Int -> m -> Builder) -> Int -> WrappedMonoid m -> Builder
showbWrappedMonoidPrecWith = showbPrecWith
showbOptionPrecWith :: (Int -> a -> Builder) -> Int -> Option a -> Builder
showbOptionPrecWith = showbPrecWith
showbArgPrecWith2 :: (Int -> a -> Builder) -> (Int -> b -> Builder)
-> Int -> Arg a b -> Builder
showbArgPrecWith2 = showbPrecWith2
$(deriveTextShow ''Min)
$(deriveTextShow1 ''Min)
$(deriveTextShow ''Max)
$(deriveTextShow1 ''Max)
$(deriveTextShow ''First)
$(deriveTextShow1 ''First)
$(deriveTextShow ''Last)
$(deriveTextShow1 ''Last)
$(deriveTextShow ''WrappedMonoid)
$(deriveTextShow1 ''WrappedMonoid)
$(deriveTextShow ''Option)
$(deriveTextShow1 ''Option)
$(deriveTextShow ''Arg)
$(deriveTextShow1 ''Arg)
$(deriveTextShow2 ''Arg)