Blogdown-0.1.0: src/Parsing/Parse.hs

module Parsing.Parse where

import Text.Parsec hiding (parse)

import AST
import Parsing.State
import Parsing.ParseBlock
import Parsing.ParseFootnotes

ast :: Parser AST
ast = do
    blocks <- many block
    footnotes <- optionMaybe footnoteDefs
    eof
    return $ AST blocks footnotes

parse :: String -> Either ParseError AST
parse = runParser ast initialState ""