From 468f2d351dfdcfff32b7ce7b70ab478e561449f4 Mon Sep 17 00:00:00 2001
From: Lukasz Stafiniak <lukstafi@gmail.com>
Date: Sun, 28 Jan 2024 11:04:08 +0100
Subject: [PATCH] Missing abbreviation

---
 ppx_minidebug.ml | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/ppx_minidebug.ml b/ppx_minidebug.ml
index 3f4a4c9..9637526 100644
--- a/ppx_minidebug.ml
+++ b/ppx_minidebug.ml
@@ -1,5 +1,6 @@
 open Ppxlib
 module A = Ast_builder.Default
+(* module H = Ast_helper *)
 
 let rec last_ident = function
   | Lident id -> id
@@ -30,11 +31,11 @@ let rec pat2expr pat =
   let loc = pat.ppat_loc in
   match pat.ppat_desc with
   | Ppat_constraint (pat', typ) ->
-      Ast_builder.Default.pexp_constraint ~loc (pat2expr pat') typ
+      A.pexp_constraint ~loc (pat2expr pat') typ
   | Ppat_alias (_, ident) | Ppat_var ident ->
-      Ast_builder.Default.pexp_ident ~loc { ident with txt = Lident ident.txt }
+      A.pexp_ident ~loc { ident with txt = Lident ident.txt }
   | _ ->
-      Ast_builder.Default.pexp_extension ~loc
+      A.pexp_extension ~loc
       @@ Location.error_extensionf ~loc
            "ppx_minidebug requires a pattern identifier here: try using an `as` alias."
 
@@ -251,7 +252,7 @@ let debug_fun callback ?descr_loc ?alt_typ exp =
   in
   let result =
     let loc = descr_loc.loc in
-    Ast_builder.Default.ppat_var ~loc { loc; txt = "__res" }
+    A.ppat_var ~loc { loc; txt = "__res" }
   in
   let body =
     [%expr