diff --git a/export/src/wormbase/names/export.clj b/export/src/wormbase/names/export.clj index 96a80d06..33d72899 100644 --- 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 index 7c1ee7e3..36500787 100644 --- 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 index 0331e075..fce32bea 100644 --- 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 index 915e6812..cefcd785 100644 --- 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 index c99dc5ff..2e3d7d75 100644 --- 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 index 4f3fc667..7f25c2f7 100644 --- 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))