fix bug (#1694)

ocamllabs · Dec 24, 2024 · edcf20f · edcf20f
1 parent 6f9a457
commit edcf20f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/extension_commands.ml b/src/extension_commands.ml
@@ -853,7 +853,7 @@ module Search_by_type = struct
         ()
     in
     let _disposable =
-      QuickPick.onDidHide quickPick ~listener:(fun () -> QuickPick.dispose quickPick)
+      QuickPick.onDidHide quickPick ~listener:(fun () -> QuickPick.dispose quickPick) ()
     in
     QuickPick.show quickPick