module Dhall.LSP.Backend.Formatting (formatExpr, formatExprWithHeader) where
import Dhall.Core (Expr)
import Dhall.Pretty (CharacterSet(..), layoutOpts, prettyCharacterSet)
import Dhall.Src (Src)
import Data.Monoid ((<>))
import Data.Text (Text)
import qualified Data.Text.Prettyprint.Doc as Pretty
import qualified Data.Text.Prettyprint.Doc.Render.Text as Pretty
formatExpr :: Pretty.Pretty b => Expr Src b -> Text
formatExpr expr = formatExprWithHeader expr ""
formatExprWithHeader :: Pretty.Pretty b => Expr Src b -> Text -> Text
formatExprWithHeader expr header = Pretty.renderStrict
(Pretty.layoutSmart layoutOpts doc)
where
doc =
Pretty.pretty header
<> Pretty.unAnnotate (prettyCharacterSet Unicode expr)
<> "\n"