Permalink
Browse files

List done tasks by date (most recently done first)

  • Loading branch information...
1 parent d0ea932 commit 55daed32a749ec56bc26ee69deb9478b01d9d5fd @samstokes committed Sep 13, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 Handler/Root.hs
View
@@ -52,7 +52,7 @@ getTasksR = maybeAuth >>= getTasksR' where
setTitle "tasks"
addWidget $(widgetFile "tasks")
- userTasks userId = selectList [TaskUser ==. userId] [Asc TaskDoneAt, Asc TaskOrder]
+ userTasks userId = selectList [TaskUser ==. userId] [Asc TaskOrder, Desc TaskDoneAt] -- must specify sorts backwards...
taskEstimates taskId = selectList [EstimateTask ==. taskId] []
taskTr (taskId, task) estimates = $(widgetFile "tasks/task-tr")

0 comments on commit 55daed3

Please sign in to comment.