Kleinigkeiten repariert.

This commit is contained in:
Burkhart Wolff 2018-10-04 17:45:39 +02:00
parent b17110db7c
commit 906131da83
1 changed files with 8 additions and 3 deletions

View File

@ -705,7 +705,11 @@ val attribute_upd : (((string * Position.T) * string) * string) parser =
val reference =
Parse.position Parse.name
--| improper
-- Scan.option (Parse.$$$ "::" -- improper |-- Parse.!!! (Parse.position Parse.name));
-- Scan.option (Parse.$$$ "::"
-- improper
|-- (Parse.!!! (Parse.position Parse.name))
)
--| improper;
val attributes =
@ -717,11 +721,12 @@ val attributes =
--| improper) : meta_args_t parser
val attributes_upd =
(Parse.$$$ "["
((Parse.$$$ "["
-- improper
|-- (reference --
(Scan.optional(Parse.$$$ "," -- improper |-- (Parse.enum "," (improper |-- attribute_upd)))) []))
--| Parse.$$$ "]"
--| Parse.$$$ "]")
--| improper