Skip to content
Snippets Groups Projects
Commit 5f4f5602 authored by Valentin Perrelle's avatar Valentin Perrelle
Browse files

[Ivette] Remove unused functions

parent 4a5b1a4a
No related branches found
No related tags found
No related merge requests found
......@@ -132,12 +132,6 @@ let jcall names fmt id =
try Format.pp_print_string fmt (Pkg.IdMap.find id names)
with Not_found -> Self.abort "Undefined identifier '%a'" Pkg.pp_ident id
let jtry ~safe pp fmt d =
if safe then
pp fmt d
else
Format.fprintf fmt "@[<hov 2>Json.jTry(@,%a)@]" pp d
let jenum names fmt id = Format.fprintf fmt "Json.jEnum(%a)" (jcall names) id
let junion ~jtype ~make fmt jts =
......@@ -200,10 +194,6 @@ let rec makeDecoder ?self ~names fmt js =
| Jrecord jfs -> jrecord ~make fmt jfs
| Jtuple jts -> jtuple ~make fmt jts
let makeLooseNeedSafe = function
| Pkg.Jtuple _ | Pkg.Jarray _ -> true
| _ -> false
(* -------------------------------------------------------------------------- *)
(* --- Parameter Decoder --- *)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment