Skip to content

Instantly share code, notes, and snippets.

@kumarshantanu

kumarshantanu/db-delete-entities.clj

Created August 31, 2010 03:30
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kumarshantanu/558500 to your computer and use it in GitHub Desktop.
Save kumarshantanu/558500 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
db-delete-entities.clj
(in-txn db
(let [e (find-by-id blog-entry-meta 3)
r ((find-rels e entry-comment-meta) e)
c (first r)]
(println "** Deleting comment **")
(delete c)
(println "** Deleting entry-comment graph **")
(delete-cascade e)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment