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