v0.14.1

cwong-ocaml · cwong-ocaml · commit 49358f97b34d · 2020-08-18T11:28:30.000-04:00
diff --git a/CHANGES.md b/CHANGES.md
@@ -1,3 +1,7 @@
+## v0.14.1
+
+- Upgrade to ppxlib 0.14.0
+
 ## v0.13.1
 
 - Honor the `inline_tests` Dune variable so that inline tests are
diff --git a/dune-project b/dune-project
@@ -1 +1,2 @@
-(lang dune 1.10)
+(lang dune 1.10)
+(name ppx_inline_test)
diff --git a/ppx_inline_test.opam b/ppx_inline_test.opam
@@ -15,7 +15,7 @@ depends: [
   "base"     {>= "v0.14" & < "v0.15"}
   "time_now" {>= "v0.14" & < "v0.15"}
   "dune"     {>= "2.0.0"}
-  "ppxlib"   {>= "0.11.0"}
+  "ppxlib"   {>= "0.14.0"}
 ]
 synopsis: "Syntax extension for writing in-line tests in ocaml code"
 description: "
diff --git a/src/ppx_inline_test.ml b/src/ppx_inline_test.ml
@@ -178,7 +178,7 @@ let expand_test_module ~loc ~path:_ ~name:id ~tags m =
   validate_extension_point_exn ~name_of_ppx_rewriter ~loc ~tags;
   apply_to_descr "test_module" ~loc ~inner_loc:m.pmod_loc None id tags
     (pexp_fun ~loc Nolabel None (punit ~loc)
-       (pexp_letmodule ~loc (Located.mk ~loc "M")
+       (pexp_letmodule ~loc (Located.mk ~loc (Some "M"))
           m
           (eunit ~loc)))
 ;;

Original file line number	Diff line number	Diff line change
`@@ -15,7 +15,7 @@ depends: [`
`15`	`15`	`"base" {>= "v0.14" & < "v0.15"}`
`16`	`16`	`"time_now" {>= "v0.14" & < "v0.15"}`
`17`	`17`	`"dune" {>= "2.0.0"}`
`18`		`- "ppxlib" {>= "0.11.0"}`
	`18`	`+ "ppxlib" {>= "0.14.0"}`
`19`	`19`	`]`
`20`	`20`	`synopsis: "Syntax extension for writing in-line tests in ocaml code"`
`21`	`21`	`description: "`
Original file line number	Diff line number	Diff line change
`@@ -178,7 +178,7 @@ let expand_test_module ~loc ~path:_ ~name:id ~tags m =`
`178`	`178`	`validate_extension_point_exn ~name_of_ppx_rewriter ~loc ~tags;`
`179`	`179`	`apply_to_descr "test_module" ~loc ~inner_loc:m.pmod_loc None id tags`
`180`	`180`	`(pexp_fun ~loc Nolabel None (punit ~loc)`
`181`		`- (pexp_letmodule ~loc (Located.mk ~loc "M")`
	`181`	`+ (pexp_letmodule ~loc (Located.mk ~loc (Some "M"))`
`182`	`182`	`m`
`183`	`183`	`(eunit ~loc)))`
`184`	`184`	`;;`