balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Hide the intermediate functions from PP_generic's signature

Browse Source
This commit is contained in:
Suzanne Dupéron 2020-05-22 18:19:26 +01:00
parent 92069077df
commit 008f228ed7
1 changed files with 104 additions and 102 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/stages/4-ast_typed/PP_generic.ml
View File

@ -3,6 +3,7 @@ open Fold
open Format open Format
open PP_helpers open PP_helpers
module M = struct
let needs_parens = { let needs_parens = {
generic = (fun state info -> generic = (fun state info ->
match info.node_instance.instance_kind with match info.node_instance.instance_kind with
@ -109,9 +110,10 @@ let op ppf = {
let print : (unit fold_config -> unit -> 'a -> unit) -> formatter -> 'a -> unit = fun fold ppf v -> let print : (unit fold_config -> unit -> 'a -> unit) -> formatter -> 'a -> unit = fun fold ppf v ->
fold (op ppf) () v fold (op ppf) () v
end
include Fold.Folds(struct include Fold.Folds(struct
type state = unit ;; type state = unit ;;
type 'a t = formatter -> 'a -> unit ;; type 'a t = formatter -> 'a -> unit ;;
let f = print ;; let f = M.print ;;
end) end)