Permalink
Browse files

#3 skip if too much in the past

  • Loading branch information...
1 parent 01c6fae commit 6cc1caaea8d0f0051391be4244ad6ef420383df5 @skuro committed Dec 1, 2012
Showing with 5 additions and 3 deletions.
  1. +5 −3 src/chai/danlik.clj
View
@@ -88,13 +88,15 @@
(.withHourOfDay hh)
(.withMinuteOfHour mm)))
(catch Exception e
+ (.printStackTrace e)
nil)))
(defn start-brew
"Starts brewing the tea"
([]
(start :brew))
([[stamp]]
- (if-let [t (parse-time stamp)]
- (start :brew (delayed t 25))
- (start :brew))))
+ (cleanup
+ (if-let [t (parse-time stamp)]
+ (start :brew t)
+ (start :brew)))))

0 comments on commit 6cc1caa

Please sign in to comment.