module PlutusCore.Pretty.Default
( prettyPlc
, displayPlc
, prettyPlcSimple
, displayPlcSimple
, displayPlcCondensedErrorClassic
) where
import PlutusPrelude
import PlutusCore.Pretty.Plc
prettyPlc :: PrettyPlc a => a -> Doc ann
prettyPlc :: forall a ann. PrettyPlc a => a -> Doc ann
prettyPlc = a -> Doc ann
forall a ann. PrettyPlc a => a -> Doc ann
prettyPlcClassic
displayPlc :: (PrettyPlc a, Render str) => a -> str
displayPlc :: forall a str. (PrettyPlc a, Render str) => a -> str
displayPlc = Doc Any -> str
forall ann. Doc ann -> str
forall str ann. Render str => Doc ann -> str
render (Doc Any -> str) -> (a -> Doc Any) -> a -> str
forall b c a. (b -> c) -> (a -> b) -> a -> c
. a -> Doc Any
forall a ann. PrettyPlc a => a -> Doc ann
prettyPlcClassic
prettyPlcSimple :: PrettyPlc a => a -> Doc ann
prettyPlcSimple :: forall a ann. PrettyPlc a => a -> Doc ann
prettyPlcSimple = a -> Doc ann
forall a ann. PrettyPlc a => a -> Doc ann
prettyPlcClassicSimple
displayPlcSimple :: (PrettyPlc a, Render str) => a -> str
displayPlcSimple :: forall a str. (PrettyPlc a, Render str) => a -> str
displayPlcSimple = Doc Any -> str
forall ann. Doc ann -> str
forall str ann. Render str => Doc ann -> str
render (Doc Any -> str) -> (a -> Doc Any) -> a -> str
forall b c a. (b -> c) -> (a -> b) -> a -> c
. a -> Doc Any
forall a ann. PrettyPlc a => a -> Doc ann
prettyPlcClassicSimple
displayPlcCondensedErrorClassic :: (PrettyPlc a, Render str) => a -> str
displayPlcCondensedErrorClassic :: forall a str. (PrettyPlc a, Render str) => a -> str
displayPlcCondensedErrorClassic =
Doc Any -> str
forall ann. Doc ann -> str
forall str ann. Render str => Doc ann -> str
render (Doc Any -> str) -> (a -> Doc Any) -> a -> str
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (PrettyConfigPlcOptions -> PrettyConfigPlc) -> a -> Doc Any
forall a ann.
PrettyPlc a =>
(PrettyConfigPlcOptions -> PrettyConfigPlc) -> a -> Doc ann
prettyPlcCondensedErrorBy PrettyConfigPlcOptions -> PrettyConfigPlc
prettyConfigPlcClassic