config(dhall): add parameter 'generator' to CorrelationID plugin

This PR adds possibility to define a custom `generator` to use in the
CorrelationID plugin.

The default value ("uuid#counter") is taken from Kong directly
https://docs.konghq.com/hub/kong-inc/correlation-id/#parameters

diff --git a/dhall/server/service/plugin/Config.dhall b/dhall/server/service/plugin/Config.dhall
index d54436b065fe3edebd1875a4903f28f66d978c2d..ea53361976a12621e75edcecc4f94c6a5f133d5e 100644 (file)
--- a/dhall/server/service/plugin/Config.dhall
+++ b/dhall/server/service/plugin/Config.dhall
@@ -1,9 +1,9 @@
 < CorrelationId :
-       { header_name : Text, echo_downstream : Bool }
+       { header_name : Text, echo_downstream : Bool, generator : Text }
 | RequestTransformer :
        { add : { headers : List Text } }
 | RequestTermination :
        { status_code : Natural, content_type : Text, body : Text }
 | IPRestriction :
        { whitelist : Text }
->
\ No newline at end of file
+>

diff --git a/dhall/server/service/plugin/CorrelationId.dhall b/dhall/server/service/plugin/CorrelationId.dhall
index 655cd8d792a7b7db28bad5e91be900ce822f6b8c..fc69f4ffef7dce98a7fd23c4cd34992c640f44c0 100644 (file)
--- a/dhall/server/service/plugin/CorrelationId.dhall
+++ b/dhall/server/service/plugin/CorrelationId.dhall
@@ -2,10 +2,22 @@ let Plugin = ./Plugin.dhall
 
 let config = ./Config.dhall
 
-in    { name =
-                 "correlation-id"
-         , config =
-                 config.CorrelationId
-                 { header_name = "X-correl", echo_downstream = True }
-         }
-       : Plugin
+in    λ(generator : Optional Text)
+       →   { name =
+                       "correlation-id"
+               , config =
+                       config.CorrelationId
+                       { header_name =
+                               "X-correl"
+                       , echo_downstream =
+                               True
+                       , generator =
+                               Optional/fold
+                               Text
+                               generator
+                               Text
+                               (λ(t : Text) → t)
+                               "uuid#counter"
+                       }
+               }
+         : Plugin