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

(** Driver for the ReasonLIGO lexer *)

module IO =
  struct
    let ext = ".religo"
    let options = EvalOpt.read "ReasonLIGO" ext
  end

module M = LexerUnit.Make (IO) (Lexer.Make (LexToken))

let () =
  match M.trace () with
    Stdlib.Ok () -> ()
  | Error msg -> Utils.highlight msg