Statement.hs

module Calculator.Parser.Statement (parseStat) where

--------------------------------------------------------------------------------

import           Calculator.Parser.Cmd         (parseCmd)
import           Calculator.Parser.Expr        (parseExpr)
import           Calculator.Prim.Statement     (Statement (..))

--------------------------------------------------------------------------------

import           Control.Applicative           ((<$>))
import           Text.ParserCombinators.Parsec

--------------------------------------------------------------------------------

parseStat :: Parser Statement
parseStat = (Expression <$> parseExpr) <|> (Command <$> parseCmd)

--------------------------------------------------------------------------------