Merge pull request #1 from analyticbastard/master

Verify keys api call

Author: Frazer

project.clj

@@ -1,4 +1,4 @@
-(defproject fbia-client "0.5.3"
+(defproject fbia-client "0.5.4"
   :description "Facebook instant articles client in clojure"
   :url "https://github.com/clumsyjedi/fbia-client"
   :license {:name "Eclipse Public License"

src/fbia_client/core.clj

@@ -95,3 +95,13 @@
                                           (dissoc :ids))))
     res))
 
+(defn verify-key
+  "Checks api keys. params is a map {:input_token \"X\" :access_token \"Y\"} where X might be the same as Y"
+  [params]
+  (let [res (chan 1)]
+    (pipeline 1 res
+              *xf-standard*
+              (get-request (graph-url api-version
+                                      "/debug_token"
+                                      params)))
+    res))