luciano/next-jdbc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Some clj-kondo cleanup

Browse source
This commit is contained in:
Sean Corfield 2020-05-21 18:39:23 -07:00
parent e855246ff3
commit 8e4dbd7bd9
2 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/next/jdbc/date_time.clj
View file

@ -33,8 +33,7 @@
working with PostgreSQL." working with PostgreSQL."
(:require [next.jdbc.prepare :as p] (:require [next.jdbc.prepare :as p]
[next.jdbc.result-set :as rs]) [next.jdbc.result-set :as rs])
(:import (java.sql PreparedStatement Timestamp) (:import (java.sql PreparedStatement Timestamp)))
(java.time Instant LocalDate LocalDateTime)))
(set! *warn-on-reflection* true) (set! *warn-on-reflection* true)

6
src/next/jdbc/result_set.clj
View file

@ -32,7 +32,7 @@
(defn get-column-names (defn get-column-names
"Given `ResultSetMetaData`, return a vector of column names, each qualified by "Given `ResultSetMetaData`, return a vector of column names, each qualified by
the table from which it came." the table from which it came."
[^ResultSetMetaData rsmeta opts] [^ResultSetMetaData rsmeta _]
(mapv (fn [^Integer i] (mapv (fn [^Integer i]
(if-let [q (not-empty (.getTableName rsmeta i))] (if-let [q (not-empty (.getTableName rsmeta i))]
(keyword q (.getColumnLabel rsmeta i)) (keyword q (.getColumnLabel rsmeta i))
@ -41,7 +41,7 @@
(defn get-unqualified-column-names (defn get-unqualified-column-names
"Given `ResultSetMetaData`, return a vector of unqualified column names." "Given `ResultSetMetaData`, return a vector of unqualified column names."
[^ResultSetMetaData rsmeta opts] [^ResultSetMetaData rsmeta _]
(mapv (fn [^Integer i] (keyword (.getColumnLabel rsmeta i))) (mapv (fn [^Integer i] (keyword (.getColumnLabel rsmeta i)))
(range 1 (inc (.getColumnCount rsmeta))))) (range 1 (inc (.getColumnCount rsmeta)))))
@ -757,7 +757,7 @@
[connectable opts] [connectable opts]
(fn [row] (fn [row]
(with-meta row (with-meta row
{`core-p/nav (fn [coll k v] {`core-p/nav (fn [_ k v]
(try (try
(let [[table fk cardinality] (let [[table fk cardinality]
(expand-schema k (or (get-in opts [:schema k]) (expand-schema k (or (get-in opts [:schema k])