ligo/src/passes/1-parser/reasonligo/ParserMain.ml

28 lines
555 B
OCaml
Raw Normal View History

(** Driver for the ReasonLIGO parser *)
module IO =
struct
let ext = ".religo"
let options = EvalOpt.read "ReasonLIGO" ext
end
module ExtParser =
struct
type ast = AST.t
type expr = AST.expr
include Parser
end
module ExtParserLog =
struct
type ast = AST.t
include ParserLog
end
module M = ParserUnit.Make (IO)
(Lexer.Make (LexToken))
(AST)
(ExtParser)
(ParErr)
(ExtParserLog)