Merge pull request #33 from ocsigen/camlp4

Fix wrt latest camlp4 4.02
ocsigen · Sep 30, 2014 · 9f6a011 · 9f6a011
2 parents e13605f + 91d684b
commit 9f6a011
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/syntax/common/utils.ml b/syntax/common/utils.ml
@@ -148,6 +148,8 @@ struct
 #endif
 #if ocaml_version >= (4, 02)
     | TyAtt (_,name,_,c) -> "TyAtt("^ name ^", "^ ctyp c ^")"
+    | TyExt (_,name,args,c) -> "TyExt("^ ident name ^", ["^ (String.concat ", " (List.map ctyp args)) ^ "], " ^ ctyp c ^")"
+    | TyOpn _ -> "TyOpn"
 #endif
 end