language-lua-0.9.0: src/Language/Lua/Parser.hs

module Language.Lua.Parser
  ( A.parseText
  , A.parseNamedText
  , parseFile
  , stat
  , exp
  , chunk
  ) where

import           Control.Monad                   (liftM)
import           Prelude                         hiding (exp)

import qualified Language.Lua.Annotated.Parser   as A
import           Language.Lua.Annotated.Lexer (SourcePos)
import           Language.Lua.Annotated.Simplify
import           Language.Lua.Syntax

parseFile :: FilePath -> IO (Either (SourcePos,String) Block)
parseFile = liftM (liftM sBlock) . A.parseFile

stat :: A.Parser Stat
stat = fmap sStat A.stat

exp :: A.Parser Exp
exp = fmap sExp A.exp

chunk :: A.Parser Block
chunk = fmap sBlock A.chunk