- | Pt.UriPattern uri -> Uri uri, []
- | Pt.VarPattern _ -> Blob, []
- | Pt.ApplPattern pl -> Appl (List.map (fun _ -> Blob) pl), pl
+ | GrafiteAst.UriPattern uri -> Uri uri, []
+ | GrafiteAst.VarPattern _ -> Blob, []
+ | GrafiteAst.ApplPattern pl -> Appl (List.map (fun _ -> Blob) pl), pl