Commit 3f678b90 authored by Robbert Krebbers's avatar Robbert Krebbers

Forgot something as part of 7d74f654.

parent 7d74f654
Pipeline #2938 passed with stage
in 9 minutes and 51 seconds
...@@ -24,8 +24,8 @@ Fixpoint parse_go (s : string) (k : list sel_pat) (kn : string) : list sel_pat : ...@@ -24,8 +24,8 @@ Fixpoint parse_go (s : string) (k : list sel_pat) (kn : string) : list sel_pat :
| String "%" s => parse_go s (SelPure :: cons_name kn k) "" | String "%" s => parse_go s (SelPure :: cons_name kn k) ""
| String "#" s => parse_go s (SelPersistent :: cons_name kn k) "" | String "#" s => parse_go s (SelPersistent :: cons_name kn k) ""
| String (Ascii.Ascii false true false false false true true true) (* unicode ∗ *) | String (Ascii.Ascii false true false false false true true true) (* unicode ∗ *)
(String (Ascii.Ascii false false false true true false false true) (String (Ascii.Ascii false false false true false false false true)
(String (Ascii.Ascii true false true false false false false true) s)) => (String (Ascii.Ascii true true true false true false false true) s)) =>
parse_go s (SelSpatial :: cons_name kn k) "" parse_go s (SelSpatial :: cons_name kn k) ""
| String a s => parse_go s k (String a kn) | String a s => parse_go s k (String a kn)
end. end.
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment