From e12949cc7668b239b40c3e7d9b5489728ef3e62a Mon Sep 17 00:00:00 2001
From: Henrik Mohr <luposlip@gmail.com>
Date: Tue, 22 Oct 2024 11:31:24 +0200
Subject: [PATCH] Release v0.9.0-beta18

---
 CHANGELOG.md       | 4 ++++
 README.md          | 2 +-
 project.clj        | 4 ++--
 src/nd_db/core.clj | 9 ++-------
 4 files changed, 9 insertions(+), 10 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index ac9b2af..c6298bc 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -7,6 +7,10 @@ All notable changes to this project will be documented in this file. This change
 - Timestamps for historical versions
 - Optimize (speed+size of) low level index format
 
+## [0.9.0-beta18] - 2024-10-22
+
+Update clarch to enhance decompression of zip entries
+
 ## [0.9.0-beta17] - 2024-10-21
 
 ### Enhanced
diff --git a/README.md b/README.md
index 62f9770..1fb7a07 100644
--- a/README.md
+++ b/README.md
@@ -3,7 +3,7 @@
 # nd-db
 
 ```clojure
-[com.luposlip/nd-db "0.9.0-beta17"]
+[com.luposlip/nd-db "0.9.0-beta18"]
 ```
 
 _Newline Delimited (read-only) Databases!_
diff --git a/project.clj b/project.clj
index b594ce9..10011f9 100644
--- a/project.clj
+++ b/project.clj
@@ -1,11 +1,11 @@
-(defproject com.luposlip/nd-db "0.9.0-beta17"
+(defproject com.luposlip/nd-db "0.9.0-beta18"
   :description "Clojure library to use newline delimited files as fast read-only databases."
   :url "https://github.com/luposlip/nd-db"
   :license {:name "Apache License, Version 2.0"
             :url "https://www.apache.org/licenses/LICENSE-2.0"}
   :dependencies [[org.clojure/clojure "1.12.0"]
                  [com.taoensso/nippy "3.4.2"]
-                 [com.luposlip/clarch "0.3.5"]
+                 [com.luposlip/clarch "0.3.6"]
                  [digest "1.4.10"]
                  [com.cnuernber/charred "1.034"]]
   :global-vars {*warn-on-reflection* true}
diff --git a/src/nd_db/core.clj b/src/nd_db/core.clj
index 2779f29..65c2cac 100644
--- a/src/nd_db/core.clj
+++ b/src/nd_db/core.clj
@@ -1,7 +1,6 @@
 (ns nd-db.core
   (:require [clojure
-             [string :as str]
-             [edn :as edn]]
+             [string :as str]]
             [clojure.java.io :as io]
             [clarch.core :as clarch]
             [nd-db
@@ -36,10 +35,6 @@
              ndio/serialize-db
              (ndix/re-index (:log-limit params)))))))
 
-(def zip-parser (fn [& args]
-
-                     (apply clarch/raw-bytes->uncompressed-bytes args)))
-
 (defn zip-db [& {:as p}]
   {:post [(ndut/db? %)]}
   (let [parsed (ndio/parse-params p)
@@ -59,7 +54,7 @@
              )))
      :doc-parser
      (fn [doctype-parser]
-       (comp doctype-parser zip-parser)))))
+       (comp doctype-parser clarch/zip-bytes->uncompressed-bytes)))))
 
 (defn db
   "Tries to read the specified pre-parsed database from filesystem.