module Text.Show.Text.Control.Monad.ST (showbST) where
import Control.Monad.ST (ST)
import Data.Text.Lazy.Builder (Builder)
import Prelude hiding (Show)
import Text.Show.Text.Classes (Show(showb), Show1(..), Show2(..))
#include "inline.h"
showbST :: ST s a -> Builder
showbST = showb
instance Show (ST s a) where
showb = showbPrecWith undefined 0
INLINE_INST_FUN(showb)
instance Show1 (ST s) where
showbPrecWith = showbPrecWith2 undefined
INLINE_INST_FUN(showbPrecWith)
instance Show2 ST where
showbPrecWith2 _ _ _ _ = "<<ST action>>"
INLINE_INST_FUN(showbPrecWith2)