Skip to content

Instantly share code, notes, and snippets.

@nlacasse

nlacasse/insert-tuple

Created January 25, 2013 00:41
Show Gist options
  • Save nlacasse/4630424 to your computer and use it in GitHub Desktop.
Save nlacasse/4630424 to your computer and use it in GitHub Desktop.
Download ZIP
insert-tuple
Raw
insert-tuple
(defn insert-tuple!
[inserter tuple]
; Get the resource and label names out of the tuple.
(let [[resource-1 label resource-2 & _ ] tuple
; Upsert the resource nodes.
node-1 (insert-resource-node! inserter resource-1)
node-2 (insert-resource-node! inserter resource-2)]
; Connect the nodes with an edge.
(connect-resource-nodes! inserter node-1 node-2 label)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment