Permalink
Browse files

Subtract from the remaining budget; not the total one

  • Loading branch information...
1 parent 8ead2fd commit 25a9c56bf5a16a31795f341093351fa2ebafc6f8 @lvh committed Mar 5, 2014
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/hood/core.clj
View
@@ -58,7 +58,7 @@
(if (empty? new-allocs)
[allocs rem-apps rem-budget]
(recur (difference rem-apps (set (keys new-allocs)))
- (- budget (apply + (vals new-allocs)))
+ (- rem-budget (apply + (vals new-allocs)))
(into allocs new-allocs))))))
(defn needs-alloc?

0 comments on commit 25a9c56

Please sign in to comment.