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

make things a bit more stricter

Browse source
This commit is contained in:
Yann Esposito 2015-04-22 12:12:52 +02:00
parent 632fc9073b
commit 417724f6ce
2 changed files with 2 additions and 1 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.4" (defproject bigbrother "0.1.4.2"
: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"

1
src/bigbrother/timer.clj
View file

@ -17,6 +17,7 @@
(cond (empty? st) st2 (cond (empty? st) st2
(empty? st2) st (empty? st2) st
:else (doall (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))