luciano/mount
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

temp trace: "mounting.. state name"

Browse source
This commit is contained in:
anatoly 2016-04-26 16:07:00 -04:00
parent afe96e9aad
commit e34a164c2e
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/mount/core.cljc
View file

@ -144,6 +144,7 @@
:status #{:stopped}} :status #{:stopped}}
stop (assoc :stop `(fn [] ~stop)))] stop (assoc :stop `(fn [] ~stop)))]
`(do `(do
(log (str "|| mounting... " ~state-name))
(~'defonce ~state (DerefableState. ~state-name)) (~'defonce ~state (DerefableState. ~state-name))
(mount-it (~'var ~state) ~state-name ~s-meta) (mount-it (~'var ~state) ~state-name ~s-meta)
(~'var ~state)))))) (~'var ~state))))))