           (assoc blob
             :data/primary-bytes byte-range
             :data/values (vec (cons pvalue svalues))
-            :data/type nil)))))) ; TODO
+            :data/type (data-type pvalue)))))))

        (.getBytes blob-charset))))


(defn print-data
  "Prints the given data value(s) as canonical EDN in a data blob."
  [value & more]
  (binding [puget/*strict-mode* true]

      (print-value v))))


(defn print-blob-str
  "Prints a canonical EDN representation to a string and returns it. This
  function disables colorization."
  [value & more]
