diff options
Diffstat (limited to 'language')
| -rw-r--r-- | language/aws/spec.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/language/aws/spec.scm b/language/aws/spec.scm index c40367b..f271d27 100644 --- a/language/aws/spec.scm +++ b/language/aws/spec.scm @@ -200,6 +200,10 @@ if this is not a primitive data type." (aws-operation operation->request #:name ,name + #:input-constructor + ,(and=> (assoc-ref spec "input") + (lambda (input) + (and=> (assoc-ref input "shape") string->symbol))) #:input-type ',(and=> (assoc-ref spec "input") (lambda (input) |