We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 0118f4a commit 18ca331Copy full SHA for 18ca331
ppx_regexp/ppx_regexp.ml
@@ -1,4 +1,4 @@
1
-(* Copyright (C) 2017--2022 Petter A. Urkedal <[email protected]>
+(* Copyright (C) 2017--2023 Petter A. Urkedal <[email protected]>
2
*
3
* This library is free software; you can redistribute it and/or modify it
4
* under the terms of the GNU Lesser General Public License as published by
@@ -227,11 +227,7 @@ let impl str =
227
if rev_bindings = [] then str else
228
let re_str =
229
let loc = Location.none in
230
- [%str
231
- module Ppx_regexp__local = struct
232
- [%%i pstr_value ~loc Nonrecursive rev_bindings]
233
- end
234
- open Ppx_regexp__local]
+ [%str open (struct [%%i pstr_value ~loc Nonrecursive rev_bindings] end)]
235
in
236
re_str @ str
237
0 commit comments