cleaned up functions that aren't being used

Author: Paula Gearon

src/asami/durable/graph.cljc

@@ -234,7 +234,7 @@
         post-index (tuples/create-tuple-index name post-name r-post)
         ospt-index (tuples/create-tuple-index name ospt-name r-ospt)
         tspo-index #?(:clj (flat-file/record-store name tspo-name tuples/tuple-size-bytes) :cljs nil)
-        data-pool (pool/create-pool name r-pool)]
+        data-pool (pool/create-pool name r-pool nil)]
     (->BlockGraph spot-index post-index ospt-index tspo-index data-pool node-allocator id-checker nil nil)))
 
 (defn new-merged-block-graph

src/asami/durable/tree.cljc

@@ -29,6 +29,11 @@
 
 (def ^:const node-cache-size 1024)
 
+(defn to-hex
+  [n]
+  #?(:clj (Long/toHexString n)
+     :cljs (.toString n 16)))
+
 (defprotocol TreeNode
   (get-parent [this] "Returns the parent node. Not the Node ID, but the node object.")
   (get-child-id [this side] "Gets the Node ID of the child on the given side")
@@ -96,7 +101,7 @@
 
   Object
   (toString [this]
-    (let [payload (mapv #(Long/toHexString (get-long this %)) (range (/ (- (:size block) header-size) 8)))]
+    (let [payload (mapv #(to-hex (get-long this %)) (range (/ (- (:size block) header-size) 8)))]
       (str "Node[" (get-id this) "] L:" (get-child-id this left) " R:" (get-child-id this right) " payload:"
            payload)))
 

src/asami/durable/tuples.cljc

@@ -601,4 +601,4 @@
   ([name order-name]
    (create-tuple-index name order-name nil))
   ([name order-name root-id]
-   (common-utils/named-storage (partial open-tuples order-name) name root-id)))
+   (common-utils/named-storage (partial open-tuples order-name) name root-id nil)))