Mdoc.hs

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

    -- * Pretty
  , prettyMdoc
  ) where

import Mdoc.Prelude

import Mdoc.Pretty
import Mdoc.Syntax.MdocLine

newtype Mdoc = Mdoc
  { lines :: [MdocLine]
  }
  deriving stock (Eq, Generic, Show)
  deriving newtype (Monoid, Semigroup)
  deriving (ToJSON) via (Rendered Mdoc)

prettyMdoc :: Mdoc -> Doc Ann
prettyMdoc mdoc = vsep $ map prettyMdocLine mdoc.lines

instance Pretty Mdoc where
  pretty = unAnnotate . prettyMdoc