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

private fns should be private

Browse source
This commit is contained in:
anatoly 2015-11-23 00:41:35 -05:00
parent f967e8e11a
commit 41d4c130b3
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/mount/core.clj
View file

@ -123,7 +123,7 @@
doall) doall)
@done)) @done))
(defn merge-lifecycles (defn- merge-lifecycles
"merges with overriding _certain_ non existing keys. "merges with overriding _certain_ non existing keys.
i.e. :suspend is in a 'state', but not in a 'substitute': it should be overriden with nil i.e. :suspend is in a 'state', but not in a 'substitute': it should be overriden with nil
however other keys of 'state' (such as :ns,:name,:order) should not be overriden" however other keys of 'state' (such as :ns,:name,:order) should not be overriden"
@ -134,12 +134,12 @@
:suspended? suspended? :suspended? suspended?
:start start :stop stop :suspend suspend :resume resume))) :start start :stop stop :suspend suspend :resume resume)))
(defn rollback! [state] (defn- rollback! [state]
(let [{:keys [origin]} (meta state)] (let [{:keys [origin]} (meta state)]
(when origin (when origin
(alter-meta! state #(merge-lifecycles % origin))))) (alter-meta! state #(merge-lifecycles % origin)))))
(defn substitute! [state with] (defn- substitute! [state with]
(let [lifecycle-fns #(select-keys % [:start :stop :suspend :resume :suspended?]) (let [lifecycle-fns #(select-keys % [:start :stop :suspend :resume :suspended?])
origin (meta state) origin (meta state)
sub (meta with)] sub (meta with)]