Commits

camlspotter committed e671d8d

fixed a bug at with conv syntax. with conv(foo(bar), ...) was with conv(foo bar, ...)

Comments (0)

Files changed (1)

pa/pa_meta_conv.ml

     *)
       let name, dirs = parse_name name in
       [ (name, dirs, type_, module_) ]
-  | <:expr< $lid:name$ $id:type_$ >> ->
+  | <:expr< $lid:name$ ( $id:type_$ ) >> ->
       let name, dirs = parse_name name in
       [ (name, dirs, type_, deduce_module_from_type type_) ]
   | <:expr< $lid:name$ >> ->