Project

General

Profile

Revision b84a138e src/printers.ml

View differences:

src/printers.ml
223 223
  ()
224 224

  
225 225
let pp_node fmt nd = 
226
fprintf fmt "@[<v 0>%a%t%s %s (%a) returns (%a)@.%a%alet@.@[<h 2>   @ @[%a@]@ @]@.tel@]@."
226
fprintf fmt "@[<v 0>%a%t%s %s (%a) returns (%a)@.%a%alet@.@[<h 2>   @ @[<v>%a@]@ @]@.tel@]@."
227 227
  (fun fmt s -> match s with Some s -> pp_spec fmt s | _ -> ()) nd.node_spec
228 228
  (fun fmt -> match nd.node_spec with None -> () | Some _ -> Format.fprintf fmt "@.")
229 229
  (if nd.node_dec_stateless then "function" else "node")

Also available in: Unified diff