Add helper to read mutation data

Author: wilkerlucio

Diff for: CHANGELOG.md

@@ -1,5 +1,8 @@
 # Change Log
 
+## [2.0.14]
+- Add `pc/mutation-data` helper
+
 ## [2.0.13]
 - BREAKING: `::pc/wrap-resolver` is now `::pc/wrap-resolve`
 

Diff for: src/com/wsscode/pathom/connect.cljc

@@ -39,12 +39,20 @@
 
 (defn resolver-data
   "Get resolver map information in env from the resolver sym."
-  [env sym]
-  (let [idx (cond-> env
-              (contains? env ::indexes)
+  [env-or-indexes sym]
+  (let [idx (cond-> env-or-indexes
+              (contains? env-or-indexes ::indexes)
               ::indexes)]
     (get-in idx [::index-resolvers sym])))
 
+(defn mutation-data
+  "Get mutation map information in env from the resolver sym."
+  [env-or-indexes sym]
+  (let [idx (cond-> env-or-indexes
+              (contains? env-or-indexes ::indexes)
+              ::indexes)]
+    (get-in idx [::mutations sym])))
+
 (defn- flat-query [query]
   (->> query p/query->ast :children (mapv :key)))