chapelure-0.0.1.0: src/Chapelure.hs

module Chapelure
  ( Diagnostic(..)
  , displayDiagnostic
  , displayDiagnosticAsString
  ) where

import Chapelure.Handler.Colourful (Config, layoutOptions, render)
import Chapelure.Style (putDocText, renderDoc)
import Chapelure.Types (Diagnostic(..))
import Data.Text (Text)
import Prettyprinter (layoutPretty)

-- | Helper for displaying a diagnostic to standard out, using default layout options
displayDiagnostic :: Config -> Diagnostic -> IO ()
displayDiagnostic config diagnostic = putDocText $ layoutPretty (layoutOptions config) $ render config diagnostic

-- | Helper for rendering a diagnostic to text, using default layout options
displayDiagnosticAsString :: Config -> Diagnostic -> Text
displayDiagnosticAsString config diagnostic = renderDoc $ layoutPretty (layoutOptions config) $ render config diagnostic