From c2c9fdb4d3a57c49df7e9d3f5ab2e7f0704f4077 Mon Sep 17 00:00:00 2001
From: Aaron Fischer <mail@aaron-fischer.net>
Date: Sun, 6 Dec 2015 15:08:20 +0100
Subject: [PATCH] Add the stages to the edges

---
 src/mailhead/visualize.clj | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/mailhead/visualize.clj b/src/mailhead/visualize.clj
index 146726f..e8ec563 100644
--- a/src/mailhead/visualize.clj
+++ b/src/mailhead/visualize.clj
@@ -9,8 +9,8 @@
     (partition 2 (interleave cleaned-chain (rest cleaned-chain)))))
 
 (defn edges [path]
-  (let [p (map
-           #(concat % [{:label "time" :fillcolor "gray" :color "gray"}])
+  (let [p (map-indexed
+           #(concat %2 [{:label (str (inc %1)) :fillcolor "gray" :color "gray"}])
            (edge-path path))]
     (into [] (map #(into [] %)) p)))