Permalink
Browse files

Fix deleting tasks which have estimates

  • Loading branch information...
1 parent e9199c2 commit 52891b098ed9dfaa51e50a49d13a6c070821dcf6 @samstokes committed Sep 6, 2011
Showing with 1 addition and 0 deletions.
  1. +1 −0 Handler/Root.hs
View
@@ -102,6 +102,7 @@ setTaskDonenessButton (taskId, task) = oneButton action (route taskId)
postDeleteTaskR :: TaskId -> Handler RepHtml
postDeleteTaskR taskId = do
+ runDB $ deleteWhere [EstimateTask ==. taskId]
runDB $ delete taskId
redirectTemporary TasksR

0 comments on commit 52891b0

Please sign in to comment.