Removed unused imports and functions

WormBase · Jan 17, 2024 · 1224ac9 · 1224ac9
1 parent 139d956
commit 1224ac9
Show file tree

Hide file tree

Showing 6 changed files with 2 additions and 19 deletions.
diff --git a/export/src/wormbase/names/export.clj b/export/src/wormbase/names/export.clj
@@ -2,7 +2,6 @@
   (:require
    [clojure.java.io :as io]
    [clojure.data.csv :as cd-csv]
-   [clojure.set :as set]
    [clojure.string :as str]
    [clojure.tools.cli :as cli]
    [datomic.api :as d]

diff --git a/ids/src/wormbase/ids/batch.clj b/ids/src/wormbase/ids/batch.clj
@@ -19,7 +19,7 @@
    [clojure.core :as cc]
    [clojure.set :as set]
    [datomic.api :as d]
-   [wormbase.ids.core :refer [attr-schema-unique? identifier-format]]))
+   [wormbase.ids.core :refer [identifier-format]]))
 
 (defn- assoc-prov
   "Attach an identifier to `prov` making this a mapping suitable for tracking provenance for a batch.
@@ -32,12 +32,6 @@
   (when tx-data
     (cons prov tx-data)))
 
-(defn db-error? [exc]
-  (some->> (ex-data exc)
-           (keys)
-           (filter (fn has-db-ns? [k]
-                     (#{"db" "db.error"} (namespace k))))))
-
 (defrecord BatchResult [tx-result errors])
 
 (defrecord BatchError [error-type exc])

diff --git a/ids/src/wormbase/ids/core.clj b/ids/src/wormbase/ids/core.clj
@@ -9,7 +9,7 @@
   (try
     (let [s-attr (:db/unique (d/entity db attr))]
       (#{:db.unique/identity :db.unique/value} s-attr))
-    (catch IllegalArgumentException iae)))
+    (catch IllegalArgumentException _)))
 
 (defn entids->data [db m k v]
     (assoc m

diff --git a/src/wormbase/names/recent.clj b/src/wormbase/names/recent.clj
@@ -10,8 +10,6 @@
    [wormbase.util :as wu])
   (:import (java.util Date)))
 
-(def conf (:recent (wu/read-app-config)))
-
 (defn- find-max-imported-date [db]
   (let [max-tx-inst (d/q '[:find (max ?inst) .
                            :where
@@ -108,8 +106,6 @@
 (def batch-rules '[[(filter-events ?tx ?needle)
                     [?tx :batch/id _ _ ]]])
 
-(def response-schema (wnu/response-map ok {:schema {:activities ::wsr/activities}}))
-
 (defn handle
   ([request rules puller needle from until]
    (handle request rules puller needle from until #{:agent/console :agent/web}))

diff --git a/src/wormbase/names/util.clj b/src/wormbase/names/util.clj
@@ -15,11 +15,6 @@
    [wormbase.specs.common :as wsc]
    [wormbase.specs.validation :as wsv]))
 
-(defn- nsify [domain kw]
-  (if (namespace kw)
-    kw
-    (keyword domain (name kw))))
-
 ;; trunc and datom-table taken from day-of-datomic repo (congnitect).
 
 (defn trunc

diff --git a/test/wormbase/gen_specs/person.clj b/test/wormbase/gen_specs/person.clj
@@ -2,7 +2,6 @@
   (:require
    [clojure.spec.alpha :as s]
    [miner.strgen :as sg]
-   [wormbase.gen-specs.util :as util]
    [wormbase.specs.person :as wsp]))
 
 (def email (sg/string-generator wsp/email-regexp))