Permalink
Browse files

Clarify what kind of map

  • Loading branch information...
1 parent ce62fd9 commit b4d8ef16e1f530189b377a6a2c6023700b1d9b65 @lvh committed Mar 6, 2014
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/hood/constraint.clj
View
@@ -24,7 +24,7 @@
constraints (conj grant-constraints within-budget)]
(solution constraints :maximize target)))
-(defn ^:private soln-to-map
+(defn ^:private soln-to-alloc-map
[soln]
(into {} (for [[[tag application] grant] soln] [application grant])))
@@ -35,7 +35,7 @@
budget is the total budget.
target is the term to optimize.
"
- (comp soln-to-map solve))
+ (comp soln-to-alloc-map solve))
(defn ^:private $expt
[x n]

0 comments on commit b4d8ef1

Please sign in to comment.