17 lines
471 B
Text
17 lines
471 B
Text
{-|
|
|
Builds a key-value record such that a List of them will be converted to a
|
|
homogeneous record by dhall-to-json and dhall-to-yaml.
|
|
-}
|
|
let keyValue =
|
|
λ(v : Type) →
|
|
λ(key : Text) →
|
|
λ(value : v) →
|
|
{ mapKey = key, mapValue = value }
|
|
|
|
let example0 =
|
|
assert : keyValue Natural "foo" 2 ≡ { mapKey = "foo", mapValue = 2 }
|
|
|
|
let example1 =
|
|
assert : keyValue Text "bar" "baz" ≡ { mapKey = "bar", mapValue = "baz" }
|
|
|
|
in keyValue
|