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

#42: adding a reason to cleanup-if-dirty

Browse source
This commit is contained in:
anatoly 2016-01-17 01:50:41 -05:00
parent c918a11e3a
commit 1d7322ef98
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/mount/core.cljc
View file

@ -50,10 +50,10 @@
a running state instance will still be running.
this function stops this 'lost' state instance.
it is meant to be called by defstate before defining a new state"
[state]
[state reason]
(when-let [{:keys [stop] :as up} (@running state)]
(when stop
(log (str "<< stopping.. " state " (namespace was recompiled)"))
(log (str "<< stopping.. " state " " reason))
(stop))
(swap! running dissoc state)))
@ -149,7 +149,7 @@
(~'defonce ~state (DerefableState. ~state-name))
(let [meta# (~'assoc ~s-meta :inst (~'atom (NotStartedState. ~state-name))
:var (~'var ~state))
restart?# ((~'var mount.core/cleanup-if-dirty) ~state-name)]
restart?# ((~'var mount.core/cleanup-if-dirty) ~state-name "(namespace was recompiled)")]
((~'var mount.core/update-meta!) [~state-name] meta#)
(~'when restart?#
(log (~'str ">> starting.. " ~state-name " (namespace was recompiled)"))
@ -198,7 +198,7 @@
(defn cleanup-deleted [state]
(when (was-removed? state)
(cleanup-if-dirty state)
(cleanup-if-dirty state "(it was deleted)")
(swap! meta-state dissoc state)))
(defn- bring [states fun order]