Skip to content

Instantly share code, notes, and snippets.

@lancepantz
Created July 7, 2010 00:11
Show Gist options
  • Save lancepantz/466120 to your computer and use it in GitHub Desktop.
Save lancepantz/466120 to your computer and use it in GitHub Desktop.
(defn verify-table [table]
(sql/with-connection *db*
(sql/with-query-results results [(str "SELECT node_id, data FROM " table " WHERE data IS NOT NULL")]
(doseq [r results]
(try (json/parse-string (:data r))
(catch Exception e
(println e)
(println "table:" table)
(println "node_id:" (:node_id r))
(println "data:" (:data r))
(println "-----------------------")))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment