Remove a tiny code stutter I came across

ocaml-flambda · Dec 21, 2022 · 98896e0 · 98896e0
1 parent fae9aef
commit 98896e0
Showing 1 changed file with 0 additions and 3 deletions.
diff --git a/parsing/pprintast.ml b/parsing/pprintast.ml
@@ -346,14 +346,11 @@ and core_type ctxt f x =
         core_type ctxt f ct
     | Ptyp_poly (sl, ct) ->
         pp f "@[<2>%a%a@]"
-          (fun f l ->
-             pp f "%a"
                (fun f l -> match l with
                   | [] -> ()
                   | _ ->
                       pp f "%a@;.@;"
                         (list tyvar_loc ~sep:"@;")  l)
-               l)
           sl (core_type ctxt) ct
     | _ -> pp f "@[<2>%a@]" (core_type1 ctxt) x