From a97da30712e86636eba06aa351e2525cb698820e Mon Sep 17 00:00:00 2001 From: Seb Bailey Date: Mon, 9 Apr 2018 11:58:40 +0100 Subject: [PATCH] Additional comments from acron --- src/clj/witan/send/send.clj | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/clj/witan/send/send.clj b/src/clj/witan/send/send.clj index 01ac44f9..7a05e532 100644 --- a/src/clj/witan/send/send.clj +++ b/src/clj/witan/send/send.clj @@ -273,8 +273,7 @@ :mover-state-alphas (p/alpha-params-movers valid-states valid-transitions transition-matrix)})))) (defn build-states-to-change [input valid-needs valid-settings ages years transition-type] - (let [to-maps (->> input - ds/row-maps) + (let [to-maps (ds/row-maps input) settings-to-change (if (= :nil (-> to-maps first :setting-2)) @@ -294,7 +293,6 @@ (vector (generate-transition-key (merge keys {:setting (first setting-to-change)})) (generate-transition-key (merge keys {:setting (second setting-to-change)})))))) settings-to-change)) valid-settings)) valid-needs)) ages)) years) - vec (remove #(nil? (first %))) distinct)))