Permalink
Browse files

Fewer runDBs

  • Loading branch information...
1 parent 0e58006 commit e9a7713a6fd3a014fcde4529b7e86d764dc2422b @samstokes committed Sep 16, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 Handler/Root.hs
View
@@ -48,7 +48,7 @@ getTasksR = maybeAuth >>= getTasksR' where
let (done, pending) = partition (taskDone . snd) tasks
timeZone <- liftIO getCurrentTimeZone
let doneByDay = groupByEq (fromJust . taskDoneDay timeZone . snd) done
- estimates <- mapM (runDB . taskEstimates . fst) tasks
+ estimates <- runDB $ mapM (taskEstimates . fst) tasks
let tasksEstimates = M.fromList $ zip (map fst tasks) estimates
((_, taskWidget), enctype) <- generateFormPost taskForm
defaultLayout $ do

0 comments on commit e9a7713

Please sign in to comment.