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