module Text.Show.Text.Functions (showbFunction) where
import Data.Text.Lazy.Builder (Builder)
import Prelude hiding (Show)
import Text.Show.Text.Classes (Show(showb, showbPrec), Show1(..), Show2(..))
#include "inline.h"
showbFunction :: (a -> b) -> Builder
showbFunction = showb
instance Show (a -> b) where
showbPrec = showbPrecWith undefined
INLINE_INST_FUN(showb)
instance Show1 ((->) a) where
showbPrecWith = showbPrecWith2 undefined
INLINE_INST_FUN(showbPrecWith)
instance Show2 (->) where
showbPrecWith2 _ _ _ _ = "<function>"
INLINE_INST_FUN(showbPrecWith2)