Permalink
Browse files

Add a pomo count to each day

  • Loading branch information...
samstokes committed Sep 16, 2011
1 parent 8b3e1c1 commit 0e580068f9e09973fc3c7a11e29eb33a09c39e2b
Showing with 4 additions and 1 deletion.
  1. +4 −1 hamlet/tasks.hamlet
View
@@ -17,7 +17,10 @@ $else
$if not (null doneByDay)
<h2>Done
$forall dayAndTasks <- doneByDay
- <h3>#{fst dayAndTasks}
+ <h3>
+ #{fst dayAndTasks}
+ $with tasks <- map snd $ snd dayAndTasks
+ \ (#{sum $ map taskPomos tasks})
<table><tbody>
$forall idAndTask <- snd dayAndTasks
$with estimates <- M.findWithDefault mempty (fst idAndTask) tasksEstimates

0 comments on commit 0e58006

Please sign in to comment.