ocaml-ppx / ppx_include Goto Github PK

diff --git a/src/ppx_include.ml b/src/ppx_include.ml
index de83f82..1e8acac 100644
--- a/src/ppx_include.ml
+++ b/src/ppx_include.ml
@@ -12,7 +12,7 @@ let raise_errorf ?sub ?if_highlight ?loc message =
 let filename_of_payload ~loc payload =
   match payload with
   | PStr [{ pstr_desc = Pstr_eval (
-      { pexp_desc = Pexp_constant (Const_string (file, None)) }, _) }] ->
+      { pexp_desc = Pexp_constant (Pconst_string (file, None)) }, _) }] ->
     file
   | _ ->
     raise_errorf ~loc "[%%include]: invalid syntax"