From 72393c90987ea53f176489cf083ea1c147cc035a Mon Sep 17 00:00:00 2001
From: Robur <team@robur.coop>
Date: Mon, 21 Feb 2022 14:50:41 +0000
Subject: [PATCH] Model.add_build: pass --platform=<build-platform> to hook
 scripts

---
 lib/model.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/model.ml b/lib/model.ml
index 4a18a74..a234599 100644
--- a/lib/model.ml
+++ b/lib/model.ml
@@ -416,12 +416,14 @@ let add_build
       let (y, m, d), ((hh, mm, ss), _) = Ptime.to_date_time start in
       Printf.sprintf "%04d%02d%02d%02d%02d%02d" y m d hh mm ss
     and job = job.name
+    and platform = job.platform
     in
     let args =
       String.concat " "
         (List.map (fun s -> "\"" ^ String.escaped s ^ "\"")
            [ "--build-time=" ^ time ; "--sha256=" ^ sha256 ; "--job=" ^ job ;
-             "--uuid=" ^ uuid ; Fpath.(to_string (datadir // main_binary)) ])
+             "--uuid=" ^ uuid ; "--platform=" ^ platform ;
+             Fpath.(to_string (datadir // main_binary)) ])
     in
     Log.debug (fun m -> m "executing hooks with %s" args);
     let dir = Fpath.(configdir / "upload-hooks") in