Fixed balance calculation

stathissideris · Sep 14, 2011 · e9efaac · e9efaac
1 parent f2f66ec
commit e9efaac
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/moneyz/barclays.clj b/src/moneyz/barclays.clj
@@ -22,11 +22,11 @@
 (defn split-by-account [statement]
   (into {}
         (map
-         (fn [[key d]] [key (dataset (:column-names statement) d)])
+         (fn [[key d]] [key (dataset (:column-names statement) (sort-by :Date d))])
          (group-by :Account (:rows statement)))))
 
 (defn calculate-balance-column [statement]
-  (reverse (reductions + (reverse (map :Amount (:rows statement))))))
+  (reductions + (map :Amount (:rows statement))))
 
 (defn add-balance-column [statement]
   (let [balance-column (calculate-balance-column statement)]