branch: externals/graphql
commit 164e1b021cda7b6abdf177c201860c53d2e06037
Merge: 03d5cc4c3c 98f9131b27
Author: Sean Allred <c...@seanallred.com>
Commit: GitHub <nore...@github.com>
Merge pull request #1 from tarsius/fixup
Fix a bug and add whitespace
---
graphql.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/graphql.el b/graphql.el
index 3fb34191bf..b0538e4ae9 100644
--- a/graphql.el
+++ b/graphql.el
@@ -41,10 +41,13 @@
((and (consp obj)
(not (consp (cdr obj))))
(symbol-name (car obj)))))
+
(defun graphql--encode-argument-spec (spec)
(graphql--encode-argument (car spec) (cdr spec)))
+
(defun graphql--encode-argument (key value)
(format "%s:%s" key (graphql--encode-argument-value value)))
+
(defun graphql--encode-argument-value (value)
(cond
((symbolp value)
@@ -58,7 +61,8 @@
((numberp value)
(number-to-string value))
(t
- (graphql--encode value))))
+ (graphql-encode value))))
+
(defun graphql--encode-parameter-spec (spec)
"Encode a parameter SPEC.
SPEC is expected to be of the following form:
@@ -88,6 +92,7 @@ parameter."
(nth 1 spec)
nil
(nthcdr 2 spec))))
+
(defun graphql--encode-parameter (name type &optional required default)
(format "$%s:%s%s%s"
(symbol-name name)
