From 389e05a7120c086225c3040ac987a327772d1fa9 Mon Sep 17 00:00:00 2001 From: Burnleydev1 Date: Thu, 16 Mar 2023 15:57:37 +0100 Subject: [PATCH] did formating of the code using Signed-off-by: Burnleydev1 --- metaquot/ppxlib_metaquot.ml | 31 ++++++++++++++++--------------- 1 file changed, 16 insertions(+), 15 deletions(-) diff --git a/metaquot/ppxlib_metaquot.ml b/metaquot/ppxlib_metaquot.ml index 6e5de3bf..f0b0db09 100644 --- a/metaquot/ppxlib_metaquot.ml +++ b/metaquot/ppxlib_metaquot.ml @@ -108,10 +108,10 @@ module Expr = Make (struct assert_no_attributes attrs; e | _ -> - Ast_builder.Default.( - pexp_extension ~loc:(loc_of_extension ext) - (Location.error_extensionf ~loc:(loc_of_extension ext) "expression expected") - ) + Ast_builder.Default.( + pexp_extension ~loc:(loc_of_extension ext) + (Location.error_extensionf ~loc:(loc_of_extension ext) + "expression expected")) end) module Patt = Make (struct @@ -127,18 +127,19 @@ module Patt = Make (struct class std_lifters = Ppxlib_metaquot_lifters.pattern_lifters let annotate p core_type = ppat_constraint ~loc:core_type.ptyp_loc p core_type - - -let cast ext : Ppxlib.pattern = - match snd ext with - | PPat (p, None) -> p - | PPat (_, Some e) -> - Ast_builder.Default.(ppat_extension ~loc:e.pexp_loc - (Location.error_extensionf ~loc:e.pexp_loc "guard not expected here")) - | _ -> Ast_builder.Default.(ppat_extension ~loc:(loc_of_extension ext) - (Location.error_extensionf ~loc:(loc_of_extension ext) "pattern expected")) - + let cast ext : Ppxlib.pattern = + match snd ext with + | PPat (p, None) -> p + | PPat (_, Some e) -> + Ast_builder.Default.( + ppat_extension ~loc:e.pexp_loc + (Location.error_extensionf ~loc:e.pexp_loc "guard not expected here")) + | _ -> + Ast_builder.Default.( + ppat_extension ~loc:(loc_of_extension ext) + (Location.error_extensionf ~loc:(loc_of_extension ext) + "pattern expected")) end) let () =