module Data.SExpresso.Print (
PL.SExprPrinter(..),
PL.mkPrinter,
flatPrint
) where
import qualified Data.Text as T
import qualified Data.Text.Lazy as L
import Data.SExpresso.SExpr
import qualified Data.SExpresso.Print.Lazy as PL
flatPrint :: PL.SExprPrinter b a -> SExpr b a -> T.Text
flatPrint :: SExprPrinter b a -> SExpr b a -> Text
flatPrint SExprPrinter b a
p SExpr b a
s = Text -> Text
L.toStrict (Text -> Text) -> Text -> Text
forall a b. (a -> b) -> a -> b
$ SExprPrinter b a -> SExpr b a -> Text
forall b a. SExprPrinter b a -> SExpr b a -> Text
PL.flatPrint SExprPrinter b a
p SExpr b a
s