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

making migration occur on start

Browse Source
This commit is contained in:
Bryce Covert
2020-09-15 13:44:01 -07:00
parent b5e19030f1
commit f944a2e90f
2 changed files with 14 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/clj/auto_ap/datomic/migrate.clj
View File

@@ -1,5 +1,5 @@
(ns auto-ap.datomic.migrate (ns auto-ap.datomic.migrate
(:require [auto-ap.datomic :refer [uri]] (:require [auto-ap.datomic :refer [uri conn]]
[datomic.api :as d] [datomic.api :as d]
[auto-ap.datomic.migrate.add-client-codes :refer [add-client-codes]] [auto-ap.datomic.migrate.add-client-codes :refer [add-client-codes]]
[auto-ap.datomic.migrate.add-bank-account-codes :refer [add-bank-account-codes]] [auto-ap.datomic.migrate.add-bank-account-codes :refer [add-bank-account-codes]]
@@ -11,7 +11,8 @@
[auto-ap.datomic.migrate.audit :as audit] [auto-ap.datomic.migrate.audit :as audit]
[clojure.java.io :as io] [clojure.java.io :as io]
[io.rkn.conformity :as c]) [io.rkn.conformity :as c]
[mount.core :as mount])
(:import [datomic Util]) (:import [datomic Util])
(:gen-class)) (:gen-class))
@@ -91,12 +92,8 @@
[]))] []))]
[existing-accounts])) [existing-accounts]))
(defn -main [& args] (defn migrate [conn]
(println "Creating database ..." uri)
(doto (d/create-database uri) println)
(let [ (let [
conn (d/connect uri)
norms-map (merge {:auto-ap/base-schema {:txes auto-ap.datomic/base-schema} norms-map (merge {:auto-ap/base-schema {:txes auto-ap.datomic/base-schema}
:auto-ap/functions {:txes-fn 'auto-ap.datomic.migrate/functions :auto-ap/functions {:txes-fn 'auto-ap.datomic.migrate/functions
:requires [:auto-ap/base-schema]} :requires [:auto-ap/base-schema]}
@@ -325,6 +322,14 @@
#_(when (not (seq args)) #_(when (not (seq args))
(d/release conn)) (d/release conn))
(println "Done"))) (println "Done")))
#_(-main false)
(defn -main [& args]
(mount/start (mount/only #{#'conn}))
(migrate conn)
(mount/stop)
)
(mount/defstate migrate-start
:start (future (migrate conn))
:stop (deref migrate-start))

1
src/clj/auto_ap/server.clj
View File

@@ -5,6 +5,7 @@
[auto-ap.yodlee.core] [auto-ap.yodlee.core]
[auto-ap.background.invoices] [auto-ap.background.invoices]
[auto-ap.square.core] [auto-ap.square.core]
[auto-ap.datomic.migrate]
[nrepl.server :refer [start-server stop-server]] [nrepl.server :refer [start-server stop-server]]
[config.core :refer [env]] [config.core :refer [env]]
[ring.adapter.jetty :refer [run-jetty]] [ring.adapter.jetty :refer [run-jetty]]