diff options
Diffstat (limited to 'Sil/Parse.icl')
| -rw-r--r-- | Sil/Parse.icl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Sil/Parse.icl b/Sil/Parse.icl index a9d733d..5c13c48 100644 --- a/Sil/Parse.icl +++ b/Sil/Parse.icl @@ -104,16 +104,16 @@ function = } codeblock :: Parser Token CodeBlock -codeblock = many initialisation >>= \i -> +codeblock = many initialisation >>= \is -> many statement >>= \s -> - pure {cb_init=i, cb_content=s} + pure {cb_init=flatten is, cb_content=s} -initialisation :: Parser Token Initialisation +initialisation :: Parser Token [Initialisation] initialisation = type >>= \t -> - name >>= \n -> + seplist TComma name >>= \ns -> item TSemicolon >>= \_ -> - pure {init_type=t, init_name=n} + pure [{init_type=t, init_name=n} \\ n <- ns] statement :: Parser Token Statement statement = (declaration |