From 6c4cfadc0b2f08e181d68a69af2826ce807c3d1b Mon Sep 17 00:00:00 2001 From: BC Date: Wed, 13 Feb 2019 21:55:14 -0800 Subject: [PATCH 1/4] supporting fixing of check numbers. --- src/clj/auto_ap/datomic/migrate.clj | 1 + src/clj/auto_ap/datomic/migrate/check_numbers.clj | 8 ++++++++ src/clj/auto_ap/graphql/checks.clj | 6 ++++-- 3 files changed, 13 insertions(+), 2 deletions(-) create mode 100644 src/clj/auto_ap/datomic/migrate/check_numbers.clj diff --git a/src/clj/auto_ap/datomic/migrate.clj b/src/clj/auto_ap/datomic/migrate.clj index 94542de6..9b0ec54a 100644 --- a/src/clj/auto_ap/datomic/migrate.clj +++ b/src/clj/auto_ap/datomic/migrate.clj @@ -62,6 +62,7 @@ :auto-ap/add-default-location-2 {:txes-fn 'auto-ap.datomic.migrate.invoice-converter/add-default-location-2 :requires [:auto-ap/add-default-location]} :auto-ap/add-import-status {:txes auto-ap.datomic.migrate.invoice-converter/add-import-status :requires [:auto-ap/add-default-location-2]} :auto-ap/add-import-status-existing-invoices {:txes-fn 'auto-ap.datomic.migrate.invoice-converter/add-import-status-existing-invoices :requires [:auto-ap/add-import-status]} + :auto-ap/fix-check-numbers {:txes-fn 'auto-ap.datomic.migrate.check-numbers/fix-check-numbers :requires [:auto-ap/add-import-status-existing-invoices]} }] (println "Conforming database...") (println (c/ensure-conforms conn norms-map)) diff --git a/src/clj/auto_ap/datomic/migrate/check_numbers.clj b/src/clj/auto_ap/datomic/migrate/check_numbers.clj new file mode 100644 index 00000000..40d09d79 --- /dev/null +++ b/src/clj/auto_ap/datomic/migrate/check_numbers.clj @@ -0,0 +1,8 @@ +(ns auto-ap.datomic.migrate.check-numbers + (:require [datomic.api :as d])) + +(defn fix-check-numbers [conn] + (let [max-check-numbers (d/query {:query {:find '[?e ?check-number (max ?d)] :in ['$] :where ['[?e :bank-account/check-number ?check-number] '[?c :payment/bank-account ?e] '[?c :payment/check-number ?d]]} :args [(d/db conn)]})] + [(for [[bank-account check-number max-check client] max-check-numbers + :when (>= max-check check-number)] + {:db/id bank-account :payment/check-number (inc max-check)})])) diff --git a/src/clj/auto_ap/graphql/checks.clj b/src/clj/auto_ap/graphql/checks.clj index 27e0ac88..58144b6d 100644 --- a/src/clj/auto_ap/graphql/checks.clj +++ b/src/clj/auto_ap/graphql/checks.clj @@ -254,7 +254,6 @@ (-> [] (conj payment) - (conj [:inc (:db/id bank-account) :bank-account/check-number 1]) (into (invoice-payments invoices invoice-amounts))))) @@ -289,7 +288,10 @@ checks (->> (for [[[vendor-id invoices] index] (map vector invoices-grouped-by-vendor (range))] (invoices->entities invoices (vendors vendor-id) client bank-account type index invoice-amounts)) (reduce into []) - doall)] + doall) + checks (if (= type :payment-type/check) + (conj checks [:inc (:db/id bank-account) :bank-account/check-number (count invoices-grouped-by-vendor)]) + checks)] (when (= type :payment-type/check) (make-pdfs (filter #(= :payment-type/check (:payment/type %)) checks))) @(d/transact (d/connect uri) checks) From 27f13ad38e8eaf16c1e752473eeb7a3d15a12cf7 Mon Sep 17 00:00:00 2001 From: BC Date: Wed, 13 Feb 2019 23:16:24 -0800 Subject: [PATCH 2/4] added ability to unvoid invoice --- src/clj/auto_ap/graphql.clj | 5 ++ src/clj/auto_ap/graphql/invoices.clj | 31 +++++++++ .../views/components/invoice_table.cljs | 15 +++-- .../auto_ap/views/pages/unpaid_invoices.cljs | 63 ++++++++++++------- 4 files changed, 86 insertions(+), 28 deletions(-) diff --git a/src/clj/auto_ap/graphql.clj b/src/clj/auto_ap/graphql.clj index 6239f25a..648720d8 100644 --- a/src/clj/auto_ap/graphql.clj +++ b/src/clj/auto_ap/graphql.clj @@ -379,6 +379,10 @@ :void_invoice {:type :invoice :args {:invoice_id {:type :id}} :resolve :mutation/void-invoice} + :unvoid_invoice {:type :invoice + :args {:invoice_id {:type :id}} + :resolve :mutation/unvoid-invoice} + :void_payment {:type :payment :args {:payment_id {:type :id}} :resolve :mutation/void-payment} @@ -483,6 +487,7 @@ :mutation/edit-client gq-clients/edit-client :mutation/upsert-vendor gq-vendors/upsert-vendor :mutation/void-invoice gq-invoices/void-invoice + :mutation/unvoid-invoice gq-invoices/unvoid-invoice :mutation/void-payment gq-checks/void-check :mutation/edit-expense-accounts gq-invoices/edit-expense-accounts :get-vendor get-vendor diff --git a/src/clj/auto_ap/graphql/invoices.clj b/src/clj/auto_ap/graphql/invoices.clj index 938831b3..a5ca1bd4 100644 --- a/src/clj/auto_ap/graphql/invoices.clj +++ b/src/clj/auto_ap/graphql/invoices.clj @@ -110,6 +110,36 @@ (->graphql)))) +(defn unvoid-invoice [context {id :invoice_id} value] + (let [invoice (d-invoices/get-by-id id) + _ (assert-can-see-client (:id context) (:db/id (:invoice/client invoice))) + conn (d/connect uri) + history (d/history (d/db conn)) + txs (d/query {:query {:find ['?tx '?e '?original-status '?original-outstanding '?total '?ea '?ea-amount] + :where ['[?e :invoice/status :invoice-status/voided ?tx true] + '[?e :invoice/status ?original-status ?tx false] + '[?e :invoice/outstanding-balance ?original-outstanding ?tx false] + '[?e :invoice/total ?total ?tx false] + '[?ea :invoice-expense-account/amount ?ea-amount ?tx false]] + :in ['$ '?e]} + :args [history id]}) + [last-transaction] (->> txs (sort-by first) (last))] + @(d/transact conn [(->> txs + (filter (fn [[tx]] (= tx last-transaction))) + (reduce (fn [new-transaction [_ entity original-status original-outstanding total expense-account expense-account-amount]] + (-> new-transaction + (assoc :db/id entity + :invoice/total total + :invoice/status original-status + :invoice/outstanding-balance original-outstanding) + + (update :invoice/expense-accounts conj {:db/id expense-account :invoice-expense-account/amount expense-account-amount})) + ) {}))]) + + (-> (d-invoices/get-by-id id) + (->graphql)))) + + (defn edit-expense-accounts [context args value] @@ -147,3 +177,4 @@ (->graphql (d-invoices/get-by-id (:invoice_id args))))) + diff --git a/src/cljs/auto_ap/views/components/invoice_table.cljs b/src/cljs/auto_ap/views/components/invoice_table.cljs index dc4034f7..754825fc 100644 --- a/src/cljs/auto_ap/views/components/invoice_table.cljs +++ b/src/cljs/auto_ap/views/components/invoice_table.cljs @@ -42,7 +42,7 @@ {:venia/queries [[:invoice_page (assoc params :client-id (:id @(re-frame/subscribe [::subs/client]))) - [[:invoices [:id :total :outstanding-balance :invoice-number :date + [[:invoices [:id :total :outstanding-balance :invoice-number :date :status [:vendor [:name :id]] [:expense_accounts [:amount :id :expense_account_id :location [:expense_account [:id :name :location [:parent [:id :name]]]]]] @@ -55,7 +55,7 @@ -(defn invoice-table [{:keys [id invoice-page status on-params-change vendors params check-boxes checked on-check-changed on-edit-invoice on-void-invoice expense-event]}] +(defn invoice-table [{:keys [id invoice-page status on-params-change vendors params check-boxes checked on-check-changed on-edit-invoice on-void-invoice on-unvoid-invoice expense-event]}] (let [visible-checks @(re-frame/subscribe [::visible-checks]) visible-expense-accounts @(re-frame/subscribe [::visible-expense-accounts]) selected-client @(re-frame/subscribe [::subs/client]) @@ -133,7 +133,7 @@ } ""]]] [:tbody - (println checked) + (if (:loading @status) [:tr [:td {:col-span 5} @@ -148,7 +148,7 @@ "checked" "") :on-change (fn [x e] (when on-check-changed - (println id i) + (on-check-changed id i)))} ]]) (when-not selected-client [:td (:name client)]) @@ -184,10 +184,13 @@ (when expense-event [:a.dropdown-item.is-primary {:on-click (dispatch-event (conj expense-event i))} "Change"])]]]) [:span {:style {:margin-left "1em"}}] - (when on-edit-invoice + + (when (and on-edit-invoice (not= ":voided" (:status i))) [:button.button {:on-click (fn [] (on-edit-invoice i))} [:span.icon [:i.fa.fa-pencil]]]) - (when (and on-void-invoice (= (:outstanding-balance i) (:total i))) + (when (and on-void-invoice (= (:outstanding-balance i) (:total i)) (not= ":voided" (:status i))) [:button.button.is-warning.is-outlined {:on-click (fn [] (on-void-invoice i))} [:span [:span.icon [:i.fa.fa-minus-circle]]]]) + (when (and on-unvoid-invoice (= ":voided" (:status i))) + [:button.button.is-outlined {:on-click (fn [] (on-unvoid-invoice i))} [:span [:span.icon [:i.fa.fa-undo]]]]) (when (seq payments) [:div.dropdown.is-right {:class (if (= id visible-checks) diff --git a/src/cljs/auto_ap/views/pages/unpaid_invoices.cljs b/src/cljs/auto_ap/views/pages/unpaid_invoices.cljs index cb73742d..75211376 100644 --- a/src/cljs/auto_ap/views/pages/unpaid_invoices.cljs +++ b/src/cljs/auto_ap/views/pages/unpaid_invoices.cljs @@ -26,7 +26,13 @@ [auto-ap.views.components.typeahead :refer [typeahead]] [auto-ap.subs :as subs] [auto-ap.events :as events])) - +(def invoice-read [:id :total :outstanding-balance :date :invoice-number :status + [:client [:id :name :locations]] + [:payments [:amount [:payment [:amount :s3_url :check_number ]]]] + [:vendor [:id :name]] + [:expense_accounts [:amount :id :expense_account_id + :location + [:expense_account [:id :name [:parent [:id :name]]]]]]]) (re-frame/reg-sub ::invoice-page (fn [db] @@ -172,7 +178,7 @@ :type type :bank_account_id bank-account-id :client_id client-id} - [[:invoices [:id :outstanding-balance [:payments [:amount [:payment [:amount :s3_url :check_number ]]]]]] + [[:invoices invoice-read] :pdf_url]]]}) (re-frame/reg-event-fx @@ -267,6 +273,8 @@ {:dispatch [::events/modal-status ::edit-invoice {:visible? true}] :db (assoc-in db [::edit-invoice] edit-invoice)}))) + + (re-frame/reg-event-fx ::create-invoice (fn [{:keys [db]} _] @@ -278,16 +286,12 @@ :venia/queries [{:query/data [:add-invoice {:invoice new-invoice} - [:id :total :outstanding-balance :date :invoice-number - [:client [:id :name :locations]] - [:vendor [:id :name]] - [:expense_accounts [:amount :id :expense_account_id - :location - [:expense_account [:id :name [:parent [:id :name]]]]]] - ]]}]} + invoice-read]}]} :on-success [::invoice-created] :on-error [::invoice-create-failed]}}))) + + (re-frame/reg-event-fx ::edit-invoice-save (fn [{:keys [db]} _] @@ -299,15 +303,22 @@ :venia/queries [{:query/data [:edit-invoice {:invoice {:id id :invoice-number invoice-number :date date :total total}} - [:id :total :outstanding-balance :date :invoice-number - [:client [:id :name :locations]] - [:vendor [:id :name]] - [:expense_accounts [:amount :id :expense_account_id - :location - [:expense_account [:id :name [:parent [:id :name]]]]]]]]}]} + invoice-read]}]} :on-success [::invoice-edited] :on-error [::invoice-edit-failed]}}))) +(re-frame/reg-event-fx + ::unvoid-invoice + (fn [{:keys [db]} [_ {id :id}]] + {:graphql + {:token (-> db :user) + :query-obj {:venia/operation {:operation/type :mutation + :operation/name "UnvoidInvoice"} + + :venia/queries [{:query/data [:unvoid-invoice + {:invoice-id id} + invoice-read]}]} + :on-success [::invoice-unvoided]}})) (re-frame/reg-event-fx ::void-invoice @@ -319,12 +330,7 @@ :venia/queries [{:query/data [:void-invoice {:invoice-id id} - [:id :total :outstanding-balance :date :invoice-number - [:client [:id :name :locations]] - [:vendor [:id :name]] - [:expense_accounts [:amount :id :expense_account_id - :location - [:expense_account [:id :name [:parent [:id :name]]]]]]]]}]} + invoice-read]}]} :on-success [::invoice-voided]}})) (re-frame/reg-event-fx @@ -343,7 +349,7 @@ :bank-account-id bank-account-id :invoice_id (:id invoice) } - [[:invoices [:id :outstanding-balance [:payments [:amount [:payment [:amount :s3_url :check_number ]]]]]]]]}]} + [[:invoices invoice-read]]]}]} :on-success [::handwrite-checks-succeeded]}}))) (re-frame/reg-event-fx @@ -394,6 +400,17 @@ (fn [{:keys [db]} [_ data]] {:dispatch [::events/modal-failed ::edit-invoice "That invoice already exists."]})) +(re-frame/reg-event-fx + ::invoice-unvoided + (fn [{:keys [db]} [_ {:keys [unvoid-invoice]}]] + {:db (-> db + (update-in [::invoice-page :invoices] + (fn [is] + (mapv (fn [i] + (if (= (:id i) (:id unvoid-invoice)) + (assoc unvoid-invoice :class "live-removed") + i)) is))))})) + (re-frame/reg-event-fx ::invoice-voided (fn [{:keys [db]} [_ {:keys [void-invoice]}]] @@ -787,6 +804,8 @@ :status (re-frame/subscribe [::subs/status]) :on-edit-invoice (fn [which] (re-frame/dispatch [::edit-invoice which])) + :on-unvoid-invoice (fn [which] + (re-frame/dispatch [::unvoid-invoice which])) :on-void-invoice (fn [which] (re-frame/dispatch [::void-invoice which])) From 99944a85c9fe8675d533a70eb508bc844e2e7838 Mon Sep 17 00:00:00 2001 From: BC Date: Wed, 13 Feb 2019 23:40:55 -0800 Subject: [PATCH 3/4] you can unvoid an invoice. --- resources/public/finance-font/demo.html | 34 +++++++++++++++++- .../public/finance-font/fonts/icomoon.eot | Bin 59256 -> 60880 bytes .../public/finance-font/fonts/icomoon.svg | 2 ++ .../public/finance-font/fonts/icomoon.ttf | Bin 59092 -> 60716 bytes .../public/finance-font/fonts/icomoon.woff | Bin 59168 -> 60792 bytes resources/public/finance-font/selection.json | 2 +- resources/public/finance-font/style.css | 16 ++++++--- src/cljs/auto_ap/routes.cljs | 1 + .../views/components/invoice_table.cljs | 2 +- .../views/components/invoices/side_bar.cljs | 19 +++++++--- src/cljs/auto_ap/views/main.cljs | 4 +++ 11 files changed, 67 insertions(+), 13 deletions(-) diff --git a/resources/public/finance-font/demo.html b/resources/public/finance-font/demo.html index b21defb7..35980d35 100755 --- a/resources/public/finance-font/demo.html +++ b/resources/public/finance-font/demo.html @@ -9,10 +9,42 @@
-

Font Name: icomoon (Glyphs: 93)

+

Font Name: icomoon (Glyphs: 95)

Grid Size: Unknown

+
+
+ + + + icon-bin-2 +
+
+ + +
+
+ liga: + +
+
+
+
+ + + + icon-skull-2 +
+
+ + +
+
+ liga: + +
+
diff --git a/resources/public/finance-font/fonts/icomoon.eot b/resources/public/finance-font/fonts/icomoon.eot index 554451aebf90e626fa02b5565a5159b87b567289..e9d1b262bda6620c69ac5652c239b15c896420b7 100755 GIT binary patch delta 1863 zcmZuyU1(fI6rMA4=gz%*fA;6z-F0`fG1=d=-R5UE*`!VL15%YXeUVKneTdy`3ZXSN z+JY^JyJ)ek_|USnR8T?CC;Jw`7r_ceD*hEk5&B}Oq186xiy}x;&)l1cRWCbp@0t0& z@60)8X7-OS+4UPty}n9FY4yBXRr2R9oo;`;;-0TH!Y>m-KE!sgu~=V<&wRad{#r-# z(_a#hlXQDd;WN$7>)!RiF~ zik%=ukhLAD9g^%O%3&sAz0D@$0JQ18n zmubKkF2d8pATeB@D8HeMo-iIHNmmOnrSHdYCs-p;^=t9B4pC6~k?cDS_ETPg+>6gN`wUT5)}T!&6u@ zT!Fbom+jiC ztT~n%w}L_2_M0`H8jD#rW<2qDN62Boc`LtvdwNG|j`N^xzJ5e%{QtN769KQK$>~ey@=pbK{YDH$4wLU+{j9P1Zuj3BhQ{*3ty7@M iS=rk6e!S{F_xrK8JcR~)K^~HDLfiG*&hj@a@4{c&%N>;f delta 255 zcmca`oB78%X10pw3=CJEO=L4;ncv@QHqoJ6u#tg*VGj@|BJ;A2L!CQ$!e*gBcheWdPNgWdH@(kFY2L`3r!2m5khyiYf+<5Fq~uP)|!v zesZG2g~~$=3{O0O@<(zLD+(B@7|$^vTEaHAkU8%9sA fd1=m=xOvOV7RJdAua9tm)H5V9p4lw$<^UrAmZwgc diff --git a/resources/public/finance-font/fonts/icomoon.svg b/resources/public/finance-font/fonts/icomoon.svg index 3924c9aa..c215293e 100755 --- a/resources/public/finance-font/fonts/icomoon.svg +++ b/resources/public/finance-font/fonts/icomoon.svg @@ -100,4 +100,6 @@ + + \ No newline at end of file diff --git a/resources/public/finance-font/fonts/icomoon.ttf b/resources/public/finance-font/fonts/icomoon.ttf index 39f1c69447883c323250635f37c21c7357bb4f2d..b0efb0e396676d9cb51f2a81db7fa561d80f6cca 100755 GIT binary patch delta 1884 zcmZuyU2IfE6rMA4=gz%*|91D@-DP*XwflFsl+vHw{y}M%#2^GpOmtfe50!0;G+?C) ziI5m~Ria=pQ5%RRYT|=W@>UalFcA}CFiJE=jnNk&qA22}`#xH#>Lknfbo& z%sFRf_RA~m!ndqJfDmGkCSj!S-urvYPE>scN8ZPFV0NLtn3($FIw8=8cI{C8*dq2} zv}Laydidl+A3w0rkM;>de%dyFus-Jves?z^H{QYdp?Mq-my|r(zoK23UpRi^X`8Z)+n?f!=)DBj<*N^0S!6B{-)DCmYCSLUB9H7*8VIg>Fu{Ngd%CAx})$%oNcO zRT@+e3#KZH#!gd4p|&zY6&i{Pli3pi)}ba+Yk*Das`=QHUona%r(O|Ag-oXpOYtkLUgSPggDt$^&#ux2y> zu#S|mGgN{7il)?d02sQ{X;0vm5>6-L)f$fP2Zf%&#Nq}RFm)O44A)qpKF~It0=Ez@ zlw#hF-k!mMdVy(tMiGh`PDXVz!0IN&Qq4tk_B870xCf$wtC-bBP-9KwDy5xRdMgv2 zlWtVrs*2nzLgO4ai{a_WoyHqa;Qe;7b-!&S17t6$kr}c`o+KoZ^9Lh%i{W7$l~>T{ z+O319G$SuGyiztn#8dOx5}x*Kd1$Z^$wuU9&u4QgLi);;tx(Bg*H`YZ6obR)O4Z<~ zBe!ygmA%8d*N*jf~W^3*FW2a^y(0d*$ox#Wd|o7gwg}SAJ@xnetu0 z`~%R>DNuLyh8XqzQ86!*hV9+8e)aLS4^*XxElsy#-PNJpyN9aXF-zC1mGkH|T}17} zE9dFCnEZ@2i+z2?l})A&=XA@`SC2@I|M~913Hc`?|N5{!_sWaK2c2!d6GM@suPJt$8Wn0?y!zJ&rKaRc85}1W6WP^kgy7b|X?sD(-x8N_A?HMZo delta 272 zcmZ2;i}}h~=6VK31_lOhh6V;^1_S?KeItG$wnm`H9w1Ig&P^;354-f3fq_v5$PYy2r z^EZ&M1Juw~kY8K^bSMx!+cI&7J7dfwMsLQL%|48>50ydw0AjP={`v9zHeVUISwQL- mZWQEa!|2I3UYIi`ZWegi!Z>-(t0Np>zb7)D*_`wG03!e&$V+el diff --git a/resources/public/finance-font/fonts/icomoon.woff b/resources/public/finance-font/fonts/icomoon.woff index 0d2c063381e899db99154448120b5cb34a27a8d5..699d9f48444f2ceab0328096c74e7acf0bb512f3 100755 GIT binary patch delta 1894 zcmZuyU5pb|6rOYM+}@eaPiH&RHq&m`-Tq7$=>E0cA6T{}QP4mMiRmtcn3e7>vH@0z zkN}CXjT!~xgJgxkgGQg_!DJtNF_8yiH2x8zhUkl^M3ms0#zeb#?#!+cb<#6;?z!K0 z&OPVcd-}$w^!Kl+b863y9TG_R+&wL6{#ZQkY-&9>ztlV~NwA2jhLFU}=eG_uPYB(+ zI9JxhI&}2R6R5i;Nk48C^5MRvk;Q|}1xfk|A<~!-XY`u~7g34237qGI@N05*ap~k~ z)IEm$mxVklDUGAY<`Gx@`8I++5VG?A-2+R_)9Col+c@v_!2Q)Llp73qmgM zRR1`B?8HfoWZ(He_rUCO9d^O&$|XqO%wS~q-jgMI6=O_DS!qamRJsXaD8m_e6Fx@% za{HkKB*eQ#GhSg3vY8M!@$C)4AdGH>@hX%{@kHF$f)5!l_<;M~JOBhV9Er&;zk`dj*aYCjf4NgwKkA348)ZvV|Vtp*Skb zCEqUYzu;y55dz|3-M|z1jet=hR@g=`Ix2Wb@hVdoW3)8i} zH*_k}9|R&Ij3X7=*-|MhB8gw>gj3jPXN|aK zR`otRn$h)4^zV1o)LL;PYdcwUm&;;$uPt+`#niT&(zUs8Ov42u0uiHbWF0GQL~Ke} zXeK{1FgWc^hZv!@rT0Vx-82zqW*ubD>srcfA)9j9?$u+=MY;_|Mwm__+|j}gubWio z(J+x)M71~#$+AMv5=x-anIJL=N4ZYTdVq}(9jOh#<+D_g|1N>^8RqlX18WzC{3&VYnfw4ymJUgwxS^rUo&eUK?C z6C2nu5#~b_4FsRCS-4QjiBjZBZMRF*rps;rM{`eN%;4O>nt+bQAq>o9 z(%?}>$m(0B5pPYUszxMYnt>SA)KuIsG2`wd-Ih&(v37p%Kzeg(jUukS~dEg79RUR&tw?MfMhvCvlIUn3XTNn#&I8w^@ z&HC<}-6__ND2AbIs}-*(jfshda-~??CNxKC#m-mT@+q=0mG8`uFTG@^o%C!F54lc& z*sHgBYtr*3`J%`b$~$Z0>Z!F4v`P*eifY7)wXvN$$7;oxp(;k_B6>~b(e~laMRFk~ zK4b0t@NmAfNmt>5Y8dM35n<#1zcG*ge<4U|>BUR0G4~e6n)j)>ZfmW-1-< delta 320 zcmexyi+RC0X0dXAH#Y`G1|WE@z`zZnpIu>KoSgVpY@&{EePeQNVgUmKV+K$>1cb%I zE Date: Wed, 13 Feb 2019 23:53:10 -0800 Subject: [PATCH 4/4] shouldn't exist. --- src/clj/auto_ap/datomic/migrate.clj | 1 - 1 file changed, 1 deletion(-) diff --git a/src/clj/auto_ap/datomic/migrate.clj b/src/clj/auto_ap/datomic/migrate.clj index 9b0ec54a..fc0964dc 100644 --- a/src/clj/auto_ap/datomic/migrate.clj +++ b/src/clj/auto_ap/datomic/migrate.clj @@ -36,7 +36,6 @@ (defn -main [& args] (println "Creating database...") - #_(d/delete-database uri) (d/create-database uri) (let [