notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

using transactions FTW

Browse Source
This commit is contained in:
Bryce Covert
2018-05-14 10:40:57 -07:00
parent cffff99014
commit 431645ad42
3 changed files with 27 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
src/clj/auto_ap/db/utils.clj
View File

@@ -42,17 +42,21 @@
(defn merge-data [{:keys [data] :as x}]
(merge x (edn/read-string data)))
(def ^{:dynamic true} current-conn nil)
(defn get-conn []
(let [db-host (:server (:db env))
db-port 5432
db-name "autoap"]
{:classname "org.postgresql.Driver" ; must be in classpath
#_#_:ssl true
#_#_:sslfactory "org.postgresql.ssl.NonValidatingFactory"
:subprotocol "postgresql"
:subname (str "//" db-host ":" db-port "/" db-name)
:user "ap"
:password "fifteen-invoices-imported!"}))
(if current-conn
current-conn
(let [db-host (:server (:db env))
db-port 5432
db-name "autoap"]
{:classname "org.postgresql.Driver" ; must be in classpath
#_#_:ssl true
#_#_:sslfactory "org.postgresql.ssl.NonValidatingFactory"
:subprotocol "postgresql"
:subname (str "//" db-host ":" db-port "/" db-name)
:user "ap"
:password "fifteen-invoices-imported!"})))
(defn query [q]
(let [formatted (sql/format q)]