module Data.ParserCombinators.Kangaroo
(
module Data.ParserCombinators.Kangaroo.Combinators
, module Data.ParserCombinators.Kangaroo.ParseMonad
, module Data.ParserCombinators.Kangaroo.Prim
, module Data.ParserCombinators.Kangaroo.Utils
, Kangaroo
, runKangaroo
, parse
) where
import Data.ParserCombinators.Kangaroo.Combinators
import Data.ParserCombinators.Kangaroo.ParseMonad hiding (
getSt, putSt, modifySt )
import Data.ParserCombinators.Kangaroo.Prim
import Data.ParserCombinators.Kangaroo.Utils hiding ( (<:>), oo, ooo, oooo )
type Kangaroo a = GenKangaroo () a
runKangaroo :: Kangaroo a -> FilePath -> IO (Either ParseErr a)
runKangaroo p filename = runGenKangaroo p () filename >>= \(a,_) -> return a
parse :: Kangaroo a -> FilePath -> IO (Either ParseErr a)
parse = runKangaroo