Fix bug where a previous epoch would be suggested

When it wasn't possible to go back further.
2018-01-26 14:32:40 +13:00 · 2018-01-26 14:32:40 +13:00 · 40f33585f0
parent c1e077fa0a
commit 40f33585f0
1 changed files with 2 additions and 2 deletions
--- a/src/day8/re_frame/trace/subs.cljs
+++ b/src/day8/re_frame/trace/subs.cljs
@ -238,7 +238,7 @@
  :<- [:epochs/current-epoch-id]
  :<- [:epochs/match-ids]
  (fn [[current ids]]
-    (and (pos? (count ids))
+    (and (< 1 (count ids))
         (or (nil? current)
             (> current (nth ids 0))))))

@ -247,7 +247,7 @@
  :<- [:epochs/current-epoch-id]
  :<- [:epochs/match-ids]
  (fn [[current ids]]
-    (and (pos? (count ids))
+    (and (< 1 (count ids))
         (some? current)
         (< current (utils/last-in-vec ids)))))