Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

purge! fix

  • Loading branch information...
commit ecd26b7609b067b5ec6242c9efb3a83bd99ba3ad 1 parent 9d10119
unknown authored
Showing with 5 additions and 4 deletions.
  1. +0 −1  .gitignore
  2. +5 −3 src/borneo/core.clj
View
1  .gitignore
@@ -3,4 +3,3 @@ pom.xml
lib
classes
autodoc
-neo-db
View
8 src/borneo/core.clj
@@ -340,9 +340,11 @@
(doseq [r (rels node)]
(delete! r))))
(with-tx
- ;; now delete nodes
- (doseq [node (all-nodes)]
- (delete! node))))
+ ;; now delete nodes, except reference node
+ (let [reference-node-id (get-id (root))]
+ (doseq [node (all-nodes)]
+ (when-not (= reference-node-id (get-id node))
+ (delete! node))))))
;;; Property Containers
Please sign in to comment.
Something went wrong with that request. Please try again.