Skip to content

Commit

Permalink
Jsoo: avoid partial application
Browse files Browse the repository at this point in the history
Signed-off-by: Hugo Heuzard <[email protected]>
  • Loading branch information
hhugo committed Nov 15, 2024
1 parent f7af2d0 commit 14a909c
Showing 1 changed file with 16 additions and 2 deletions.
18 changes: 16 additions & 2 deletions src/dune_rules/jsoo/jsoo_rules.ml
Original file line number Diff line number Diff line change
Expand Up @@ -293,7 +293,7 @@ let jsoo_runtime_files ~(mode : Js_of_ocaml.Mode.t) libs =
(Lib.info t))
;;

let standalone_runtime_rule ~mode cc ~runtime_files ~target ~flags =
let standalone_runtime_rule ~mode cc ~runtime_files ~target ~flags ~sourcemap =
let dir = Compilation_context.dir cc in
let sctx = Compilation_context.super_context cc in
let config =
Expand Down Expand Up @@ -322,9 +322,20 @@ let standalone_runtime_rule ~mode cc ~runtime_files ~target ~flags =
~directory_targets:[]
~spec
~config:(Some config)
~sourcemap
;;

let exe_rule ~mode cc ~linkall ~runtime_files ~src ~target ~directory_targets ~flags =
let exe_rule
~mode
cc
~linkall
~runtime_files
~src
~target
~directory_targets
~flags
~sourcemap
=
let dir = Compilation_context.dir cc in
let sctx = Compilation_context.super_context cc in
let libs = Compilation_context.requires_link cc in
Expand Down Expand Up @@ -364,6 +375,7 @@ let exe_rule ~mode cc ~linkall ~runtime_files ~src ~target ~directory_targets ~f
~directory_targets
~flags
~config:None
~sourcemap
;;

let with_js_ext ~mode s =
Expand Down Expand Up @@ -406,6 +418,7 @@ let link_rule
~flags
~linkall
~link_time_code_gen
~sourcemap
=
let sctx = Compilation_context.super_context cc in
let dir = Compilation_context.dir cc in
Expand Down Expand Up @@ -475,6 +488,7 @@ let link_rule
~directory_targets
~flags
~config:None
~sourcemap
;;

let build_cm' sctx ~dir ~in_context ~mode ~src ~target ~config ~sourcemap =
Expand Down

0 comments on commit 14a909c

Please sign in to comment.