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

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

import Mdoc.Prelude

import Data.Text qualified as T
import Mdoc.Parse
import Mdoc.TableLine

parseTableLines :: Parser [TableLine]
parseTableLines = do
  void $ string ".TS" >> eol
  str <- manyTill anySingle $ string ".TE" >> peek eol
  pure $ map TableLine $ T.lines $ pack str