Permalink
Browse files

[fix] compiler, parser: fragment should be always coerce

  • Loading branch information...
1 parent 6f09c57 commit 1b39c01393da4c5abb74864c357ae9a3cc31a540 @BourgerieQuentin BourgerieQuentin committed Feb 23, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 opalang/classic_syntax/parser_utils.ml
@@ -1143,9 +1143,10 @@ let arg_default (o,label) =
| Some o -> o
let create_fragment l label =
+ coerce_name_expr (
match l with
| [h] -> h
- | l -> coerce_name_expr (record [("fragment", list_expr_of_expr_list l label)]) (xml_typename ())
+ | l -> (record [("fragment", list_expr_of_expr_list l label)])) (xml_typename ())
let create_textnode str =
coerce_name_expr (record [("text", string2 str)]) (xml_typename ())

0 comments on commit 1b39c01

Please sign in to comment.