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 :
| String "%" s => parse_go s (SelPure :: 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 false false true true false false true)
(String (Ascii.Ascii true false true false false false false true) s)) =>
(String (Ascii.Ascii false false false true false false false true)
(String (Ascii.Ascii true true true false true false false true) s)) =>
parse_go s (SelSpatial :: cons_name kn k) ""
| String a s => parse_go s k (String a kn)
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