@@ -7,36 +7,11 @@ import Data.Text qualified as T
7
7
import Turtle
8
8
9
9
main = do
10
- release <- options " Upload boms" do
11
- optText " release" ' t' " Which release tag to upload the artifacts to"
12
-
13
- with (mktempdir " ." " tmp" ) \ tmpDir -> do
14
- cd tmpDir
15
- let git l = proc " git" l mempty
16
- git [" clone" , " https://github.com/mangoiv/wire-server" , " ." ]
17
- git [" checkout" , release]
18
- git [" submodule" , " update" , " --init" , " --recursive" ]
19
- let bomName = " wire-server-bom-" <> release <> " .json"
20
- ExitSuccess <-
21
- proc
22
- " nix"
23
- [ " build" ,
24
- " -f" ,
25
- " nix" ,
26
- " wireServer.allLocalPackagesBom" ,
27
- " -o" ,
28
- bomName
29
- ]
30
- mempty
31
- printf (" uploading " % s % " to release " % s % " \n " ) bomName (" chart/" <> release)
32
- proc
33
- " gh"
34
- [ " -R" ,
35
- " mangoiv/wire-server" ,
36
- " release" ,
37
- " upload" ,
38
- " chart/" <> release,
39
- bomName
40
- ]
41
- mempty
42
- pure ()
10
+ (release, repo) <- options " Upload boms" do
11
+ (,)
12
+ <$> optText " release" ' t' " Which release tag to upload the artifacts to"
13
+ <*> optText " repo" ' r' " Which repository to upload the artifacts to"
14
+ let bomName = " wire-server-bom-" <> release <> " .json"
15
+ ExitSuccess <- proc " nix" [" build" , " -f" , " nix" , " wireServer.allLocalPackagesBom" , " -o" , bomName] mempty
16
+ printf (" uploading " % s % " to release " % s % " \n " ) bomName (" chart/" <> release)
17
+ proc " gh" [" -R" , repo, " release" , " upload" , " chart/" <> release, bomName] mempty
0 commit comments