dhall-lang/dhall-kubernetes
1
1
Fork 0
mirror of https://github.com/dhall-lang/dhall-kubernetes.git synced 2024-09-17 10:27:08 +03:00
Code Issues Projects Releases Wiki Activity

Add apiVersion and kind

Browse Source
This commit is contained in:
Alessandro Marrella 2019-12-12 13:15:43 +00:00
parent f8d92a8e41
commit a70334e45c
No known key found for this signature in database
GPG Key ID: A1550631FC3976D3
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
dhall-kubernetes-generator/src/Dhall/Kubernetes/Convert.hs
View File

@ -313,7 +313,18 @@ toDefinition crd =
kind = crdKind,
apiVersion = version
}
pure $ propsToDefinition schema (Just baseData)
let completeSchemaProperties =
fmap
(Data.Map.union
(
Data.Map.fromList [
("apiVersion", (mkV1beta1JSONSchemaProps {v1beta1JSONSchemaPropsType = Just "string"}))
, ("kind", (mkV1beta1JSONSchemaProps {v1beta1JSONSchemaPropsType = Just "string"} ))
]
))
(v1beta1JSONSchemaPropsProperties schema)
let completeSchema = schema { v1beta1JSONSchemaPropsProperties = completeSchemaProperties}
pure $ propsToDefinition (completeSchema) (Just baseData)
propsToDefinition :: V1beta1JSONSchemaProps -> Maybe BaseData -> Definition
propsToDefinition schema basedata =
Definition