Interpolation.hs

-- |
--
-- Module      : Mdoc.Pretty.Interpolation
-- Copyright   : (c) 2026 Patrick Brisbin
-- License     : AGPL-3
-- Maintainer  : pbrisbin@gmail.com
-- Stability   : experimental
-- Portability : POSIX
module Mdoc.Pretty.Interpolation
  ( prettyInterpolation
  ) where

import Mdoc.Prelude

import Mdoc.Interpolation
import Mdoc.Pretty

prettyInterpolation :: Interpolation -> Doc Ann
prettyInterpolation i =
  annotate AnnSymbol "{{"
    <> annotate AnnSpecial (pretty $ interpolationToText i)
    <> annotate AnnSymbol "}}"