Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[cleanup] Base: remove log_error

  • Loading branch information...
commit 34d11e640d4a24ac68dac8bcf4a9b342dc3646e6 1 parent 0091b78
Raja authored
Showing with 2 additions and 10 deletions.
  1. +0 −2  libbase/base.ml
  2. +0 −6 libbase/base.mli
  3. +2 −2 teerex/trx_interpreter.ml
View
2  libbase/base.ml
@@ -101,7 +101,5 @@ module String = BaseString
module Utf8 = BaseUtf8
(* deprecated *)
-let jlog ?long:_ ?color:_ ?level:_ s = Printf.eprintf "DEPRECATED JLOG: %s" s
-let log_error = jlog
let error = failwith
let warning ?level:_ s = Printf.eprintf "DEPRECATED WARNING: %s" s
View
6 libbase/base.mli
@@ -147,12 +147,6 @@ val sprintf : ('a, unit, string) format -> 'a
(**
deprecated jlog. is implemented with function [ignore]
*)
-val log_error :
- ?long:bool ->
- ?color:Ansi.color ->
- ?level:int ->
- string -> unit
-
val warning : ?level:int -> string -> unit
(**
View
4 teerex/trx_interpreter.ml
@@ -207,7 +207,7 @@ let parse peg input =
StringMap.find id peg.T.grammar
with
Not_found ->
- Base.log_error (pr "Could not find a definition for the production: %s" id);
+ log "Could not find a definition for the production: %s" id;
raise Not_found
in
@@ -534,4 +534,4 @@ let _ =
| `analyze_memo -> analyze_memo peg
with
| Pgrammar.GrammarParse _err ->
- Base.log_error (pr "Failed while parsing the input grammar: {%s}!\n" grammarFn)
+ log "Failed while parsing the input grammar: {%s}!\n" grammarFn
Please sign in to comment.
Something went wrong with that request. Please try again.