Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[fix] compiler, syntax: typo around module

  • Loading branch information...
commit ca4476b712e077ba30e1d39cf2b805837468d91b 1 parent 7fd744e
@BourgerieQuentin BourgerieQuentin authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 opalang/js_syntax/opa_parser.trx
View
6 opalang/js_syntax/opa_parser.trx
@@ -520,7 +520,7 @@ binding_simple <-
binding_lambda <- lambda_with_name:lwn {{ lwn }}
binding_module <-
- (=type_maybe(Opa_lexer.MODULE spacing deco_ml_identifier_nosp:ident (=deco(module_no_keyword)):m
+ (=type_maybe(Opa_lexer.MODULE spacing deco_ml_identifier_nosp:ident (=careful_deco(module_no_keyword)):m
{{ function t -> (ident, may_coerce_expr m t) }}))
@@ -997,7 +997,7 @@ module_simple_field <-
/** Module expression **/
module_no_keyword <-
- spacing module_functor_args?:func "{" spacing pos:pos (=deco((=list0pos(module_element,separator)))):r spacing "}"
+ module_functor_args?:func spacing "{" spacing pos:pos (=deco((=list0pos(module_element,separator)))):r spacing "}"
{{
let (r,posl),label = r in
push_hint (`same_indents (pos :: posl));
@@ -1006,7 +1006,7 @@ module_no_keyword <-
| Some func -> func ((module_ (Record r,label)), copy_label label)
}}
-module_functor_args <- lpar (=list0(pattern,comma)):args rpar
+module_functor_args <- lambda_args:args
{{ function e -> Lambda (encode_args_as_record args, e) }}
module <- Opa_lexer.MODULE module_no_keyword:m
Please sign in to comment.
Something went wrong with that request. Please try again.