mdoc-0.1.0.0: src/Mdoc/Parse/MacroName.hs

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

import Mdoc.Prelude

import Mdoc.MacroName
import Mdoc.Parse

parseMacroName :: Parser MacroName
parseMacroName = choice names <?> "macro name"
 where
  names :: [Parser MacroName]
  names = map (parseAs macroNameText) [minBound .. maxBound]