rescript-lang
diff --git a/‎bytecomp/lambda.ml
Lines changed: 1 addition & 1 deletion b/‎bytecomp/lambda.ml
Lines changed: 1 addition & 1 deletion
diff --git a/‎stdlib/target_camlheader
Lines changed: 0 additions & 1 deletion b/‎stdlib/target_camlheader
Lines changed: 0 additions & 1 deletion
diff --git a/‎stdlib/target_camlheaderd
Lines changed: 0 additions & 1 deletion b/‎stdlib/target_camlheaderd
Lines changed: 0 additions & 1 deletion
@@ -496,7 +496,7 @@ let rec transl_normal_path = function
     Pident id ->
       if Ident.global id then Lprim(Pgetglobal id, []) else Lvar id
   | Pdot(p, s, pos) ->
-      Lprim(Pfield (pos, Fld_na (* TODO *)), [transl_normal_path p])
+      Lprim(Pfield (pos, Fld_module s ), [transl_normal_path p])
   | Papply(p1, p2) ->
       fatal_error "Lambda.transl_path"