yogsototh/bigbrother
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added more strictness memory leak possible

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2015-04-15 19:20:19 +02:00
parent 64891674e1
commit 632fc9073b
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
project.clj
View file

@ -1,4 +1,4 @@
(defproject bigbrother "0.1.3" (defproject bigbrother "0.1.4"
:description "Periodically send metrics" :description "Periodically send metrics"
:url "http://github.com/yogsototh/bigbrother" :url "http://github.com/yogsototh/bigbrother"
:license {:name "MIT" :license {:name "MIT"

2
src/bigbrother/timer.clj
View file

@ -16,7 +16,7 @@
(defn add-sumtimes [st st2] (defn add-sumtimes [st st2]
(cond (empty? st) st2 (cond (empty? st) st2
(empty? st2) st (empty? st2) st
:else (map add-one-sumtime st st2))) :else (doall (map add-one-sumtime st st2))))
(defn fmap-sumtimes [f st] (defn fmap-sumtimes [f st]
(map (fn [v] [(first v) [(f (ts-timespent v)) (map (fn [v] [(first v) [(f (ts-timespent v))
(ts-nb v)]]) st)) (ts-nb v)]]) st))