module Text.Show.Text.Data.List.NonEmpty (showbNonEmptyPrec) where
import Data.List.NonEmpty (NonEmpty)
import Prelude hiding (Show)
import Text.Show.Text (Show(showbPrec), Show1(showbPrec1), Builder)
import Text.Show.Text.TH (deriveShowPragmas, defaultInlineShowbPrec)
#include "inline.h"
showbNonEmptyPrec :: Show a => Int -> NonEmpty a -> Builder
showbNonEmptyPrec = showbPrec
$(deriveShowPragmas defaultInlineShowbPrec ''NonEmpty)
instance Show1 NonEmpty where
showbPrec1 = showbPrec
INLINE_INST_FUN(showbPrec1)