| |
@@ -0,0 +1,128 @@
|
| |
+ let Zuul =
|
| |
+ ~/git/softwarefactory-project.io/software-factory/dhall-zuul/package.dhall
|
| |
+ ? https://softwarefactory-project.io/cgit/software-factory/dhall-zuul/plain/package.dhall
|
| |
+
|
| |
+ let Prelude =
|
| |
+ https://prelude.dhall-lang.org/v17.0.0/package.dhall sha256:10db3c919c25e9046833df897a8ffe2701dc390fa0893d958c3430524be5a43e
|
| |
+
|
| |
+ let Nodeset =
|
| |
+ let Union =
|
| |
+ < Fedora-Latest-Container
|
| |
+ | Fedora-33-Container
|
| |
+ | Fedora-32-Container
|
| |
+ | Fedora-31-Container
|
| |
+ | Fedora-30-Container
|
| |
+ | Centos-8-Container
|
| |
+ | Centos-7-Container
|
| |
+ | Fedora-Rawhide-VM
|
| |
+ | Fedora-33-VM
|
| |
+ | Fedora-32-VM
|
| |
+ | Fedora-31-VM
|
| |
+ | Fedora-30-VM
|
| |
+ | Fedora-Rawhide-VM-Medium
|
| |
+ | Fedora-33-VM-Medium
|
| |
+ | Fedora-32-VM-Medium
|
| |
+ | Fedora-31-VM-Medium
|
| |
+ | Fedora-30-VM-Medium
|
| |
+ | Centos-8-VM
|
| |
+ >
|
| |
+
|
| |
+ let all =
|
| |
+ [ Union.Fedora-Latest-Container
|
| |
+ , Union.Fedora-33-Container
|
| |
+ , Union.Fedora-32-Container
|
| |
+ , Union.Fedora-31-Container
|
| |
+ , Union.Fedora-30-Container
|
| |
+ , Union.Centos-8-Container
|
| |
+ , Union.Centos-7-Container
|
| |
+ , Union.Fedora-Rawhide-VM
|
| |
+ , Union.Fedora-33-VM
|
| |
+ , Union.Fedora-32-VM
|
| |
+ , Union.Fedora-31-VM
|
| |
+ , Union.Fedora-30-VM
|
| |
+ , Union.Fedora-Rawhide-VM-Medium
|
| |
+ , Union.Fedora-33-VM-Medium
|
| |
+ , Union.Fedora-32-VM-Medium
|
| |
+ , Union.Fedora-31-VM-Medium
|
| |
+ , Union.Fedora-30-VM-Medium
|
| |
+ , Union.Centos-8-VM
|
| |
+ ]
|
| |
+
|
| |
+ let create
|
| |
+ : Text → Text → Text → Zuul.Nodeset.Type
|
| |
+ = λ(name : Text) →
|
| |
+ λ(label : Text) →
|
| |
+ λ(host : Text) →
|
| |
+ Zuul.Nodeset::{
|
| |
+ , name
|
| |
+ , nodes = [ { name = host, label } ] : List Zuul.Nodeset.NodeType
|
| |
+ }
|
| |
+
|
| |
+ let toNodeset
|
| |
+ : Union → Zuul.Nodeset.Type
|
| |
+ = λ(nodeset : Union) →
|
| |
+ merge
|
| |
+ { Fedora-Latest-Container =
|
| |
+ create "fedora-latest-container" "pod-fedora-33" "container"
|
| |
+ , Fedora-33-Container =
|
| |
+ create "fedora-33-container" "pod-fedora-33" "container"
|
| |
+ , Fedora-32-Container =
|
| |
+ create "fedora-32-container" "pod-fedora-32" "container"
|
| |
+ , Fedora-31-Container =
|
| |
+ create "fedora-31-container" "pod-fedora-31" "container"
|
| |
+ , Fedora-30-Container =
|
| |
+ create "fedora-30-container" "pod-fedora-30" "container"
|
| |
+ , Centos-8-Container =
|
| |
+ create "centos-8-container" "pod-centos-8" "container"
|
| |
+ , Centos-7-Container =
|
| |
+ create "centos-7-container" "pod-centos-7" "container"
|
| |
+ , Fedora-Rawhide-VM =
|
| |
+ create
|
| |
+ "fedora-rawhide-vm"
|
| |
+ "cloud-fedora-rawhide-small"
|
| |
+ "cloud-host"
|
| |
+ , Fedora-33-VM =
|
| |
+ create "fedora-33-vm" "cloud-fedora-33-small" "cloud-host"
|
| |
+ , Fedora-32-VM =
|
| |
+ create "fedora-32-vm" "cloud-fedora-32-small" "cloud-host"
|
| |
+ , Fedora-31-VM =
|
| |
+ create "fedora-31-vm" "cloud-fedora-31-small" "cloud-host"
|
| |
+ , Fedora-30-VM =
|
| |
+ create "fedora-30-vm" "cloud-fedora-30-small" "cloud-host"
|
| |
+ , Fedora-Rawhide-VM-Medium =
|
| |
+ create
|
| |
+ "fedora-rawhide-vm-medium"
|
| |
+ "cloud-fedora-rawhide-medium"
|
| |
+ "cloud-host"
|
| |
+ , Fedora-33-VM-Medium =
|
| |
+ create
|
| |
+ "fedora-33-vm-medium"
|
| |
+ "cloud-fedora-33-medium"
|
| |
+ "cloud-host"
|
| |
+ , Fedora-32-VM-Medium =
|
| |
+ create
|
| |
+ "fedora-32-vm-medium"
|
| |
+ "cloud-fedora-32-medium"
|
| |
+ "cloud-host"
|
| |
+ , Fedora-31-VM-Medium =
|
| |
+ create
|
| |
+ "fedora-31-vm-medium"
|
| |
+ "cloud-fedora-31-medium"
|
| |
+ "cloud-host"
|
| |
+ , Fedora-30-VM-Medium =
|
| |
+ create
|
| |
+ "fedora-30-vm-medium"
|
| |
+ "cloud-fedora-30-medium"
|
| |
+ "cloud-host"
|
| |
+ , Centos-8-VM =
|
| |
+ create "centos-8-vm" "cloud-centos-8" "cloud-host"
|
| |
+ }
|
| |
+ nodeset
|
| |
+
|
| |
+ let getName =
|
| |
+ λ(nodeset : Union) →
|
| |
+ Zuul.Nodeset.Union.Name (toNodeset nodeset).name
|
| |
+
|
| |
+ in { Type = Union, toNodeset, getName, all, create }
|
| |
+
|
| |
+ in Nodeset
|
| |