Syntax: small update

Author: hhugo

lib/syntax/pa_js.ml

@@ -115,7 +115,7 @@ module Make (Syntax : Sig.Camlp4Syntax) = struct
           _loc e_loc (e:string) v_loc (v:string) v_typ m_loc m m_typ args =
     let typ_var = fresh_type e_loc in
     let cstr =
-      let _loc = e_loc in <:expr<(($lid:e$ : $js_t_id _loc "t"$ $typ_var$) : $js_t_id _loc "t"$ < .. > )>> in
+      let _loc = e_loc in <:expr<(($lid:e$ : $js_t_id _loc "t"$ < .. >) : $js_t_id _loc "t"$ $typ_var$)>> in
     let x = let _loc = e_loc in <:expr<x>> in
     let body =
       let _loc = Syntax.Loc.merge e_loc m_loc in

tests/camlp4/meth.expected

@@ -3,7 +3,7 @@ Characters 40-43:
   fun (obj : int) -> obj##m();;
                      ^^^
 Error: This expression has type int but an expression was expected of type
-         'jsoo_173316d7 Js.t
+         < .. > Js.t
 Characters 25-28:
   fun (obj : < > Js.t) -> obj##m();;
                           ^^^

tests/camlp4/prop.expected

@@ -3,7 +3,7 @@ Characters 45-48:
   fun (obj : int) -> obj##p;;
                      ^^^
 Error: This expression has type int but an expression was expected of type
-         'jsoo_32b5ee21 Js.t
+         < .. > Js.t
 Characters 25-28:
   fun (obj : < > Js.t) -> obj##p;;
                           ^^^

tests/camlp4/write_prop.expected

@@ -3,7 +3,7 @@ Characters 45-48:
   fun (obj : int) -> obj##p <- 2;;
                      ^^^
 Error: This expression has type int but an expression was expected of type
-         'jsoo_32b5ee21 Js.t
+         < .. > Js.t
 Characters 25-28:
   fun (obj : < > Js.t) -> obj##p <- 2;;
                           ^^^