started adding graphql

src/clj/auto_ap/db/utils.clj

@@ -21,12 +21,15 @@
                   kebabed)]
      merged)))
 
+(defn snake [x]
+  (into {}
+        (map
+         (fn [[k v]]
+           [(keyword (kebab->snake (name k))) v])
+         x)))
+
 (defn clj->db [x]
-  (let [snaked (into {}
-                     (map
-                      (fn [[k v]]
-                        [(keyword (kebab->snake (name k))) v])
-                      x))
+  (let [snaked (snake x) 
         unmerged (if (:data snaked)
                    (update snaked :data pr-str)
                    snaked)]