@@ -235,8 +235,10 @@ type HttpListenerBuilder() =
235
235
member _.Protocol ( state : HttpListenerConfig , protocol ) = { state with Protocol = protocol }
236
236
237
237
[<CustomOperation " ssl_certificate" >]
238
- member _.SslCertificate ( state : HttpListenerConfig , sslCertificate : string ) =
239
- { state with SslCertificate = Some ( ResourceName sslCertificate) }
238
+ member _.SslCertificate ( state : HttpListenerConfig , sslCertificate : string ) = {
239
+ state with
240
+ SslCertificate = Some( ResourceName sslCertificate)
241
+ }
240
242
241
243
let httpListener = HttpListenerBuilder()
242
244
@@ -574,37 +576,35 @@ type BasicRequestRoutingRuleBuilder() =
574
576
}
575
577
576
578
[<CustomOperation " priority" >]
577
- member _.Priority ( state : RequestRoutingRuleConfig , priority : int ) = {
578
- state with Priority = Some priority
579
- }
579
+ member _.Priority ( state : RequestRoutingRuleConfig , priority : int ) = { state with Priority = Some priority }
580
580
581
581
let basicRequestRoutingRule = BasicRequestRoutingRuleBuilder()
582
582
583
583
type SslCertificateConfig = {
584
584
Name: ResourceName
585
585
KeyVaultSecretId: string option
586
586
} with
587
- static member BuildResource ( conf : SslCertificateConfig ) = {|
588
- Name = conf.Name
589
- Data = None // TODO: needs implementation after further testing.
590
- KeyVaultSecretId = conf.KeyVaultSecretId
591
- Password = None // TODO: needs implementation, will generate password parameter.
587
+
588
+ static member BuildResource ( conf : SslCertificateConfig ) = {|
589
+ Name = conf.Name
590
+ Data = None // TODO: needs implementation after further testing.
591
+ KeyVaultSecretId = conf.KeyVaultSecretId
592
+ Password = None // TODO: needs implementation, will generate password parameter.
592
593
|}
593
594
594
- type SslCertificateBuilder () =
595
+ type SslCertificateBuilder () =
595
596
member _.Yield _ = {
596
597
Name = ResourceName.Empty
597
598
KeyVaultSecretId = None
598
599
}
599
600
600
601
[<CustomOperation " name" >]
601
- member _.Name ( config : SslCertificateConfig , name : string ) = {
602
- config with Name = ResourceName name
603
- }
602
+ member _.Name ( config : SslCertificateConfig , name : string ) = { config with Name = ResourceName name }
604
603
605
604
[<CustomOperation " key_vault_secret_id" >]
606
- member _.KeyVaultSecretId ( config : SslCertificateConfig , secretId : string ) = {
607
- config with KeyVaultSecretId = Some secretId
605
+ member _.KeyVaultSecretId ( config : SslCertificateConfig , secretId : string ) = {
606
+ config with
607
+ KeyVaultSecretId = Some secretId
608
608
}
609
609
610
610
let sslCertificate = SslCertificateBuilder()
@@ -803,8 +803,9 @@ type AppGatewayBuilder() =
803
803
}
804
804
805
805
[<CustomOperation " add_ssl_certificates" >]
806
- member _.AddSslCertificates ( state : AppGatewayConfig , sslCertificates : SslCertificateConfig list ) = {
807
- state with SslCertificates = state.SslCertificates @ sslCertificates
806
+ member _.AddSslCertificates ( state : AppGatewayConfig , sslCertificates : SslCertificateConfig list ) = {
807
+ state with
808
+ SslCertificates = state.SslCertificates @ sslCertificates
808
809
}
809
810
810
811
let appGateway = AppGatewayBuilder()
0 commit comments