diff options
Diffstat (limited to 'Handler/Vacation.hs')
| -rw-r--r-- | Handler/Vacation.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Handler/Vacation.hs b/Handler/Vacation.hs index 18a96cb..e6c95f9 100644 --- a/Handler/Vacation.hs +++ b/Handler/Vacation.hs @@ -14,7 +14,7 @@ getVacationR cid = do user <- runDB $ get404 cid ma <- maybeAuth today <- fmap utctDay (liftIO getCurrentTime) - [e'] <- runDB $ fmap (map entityVal) (selectList [EmploymentUser ==. cid] []) + (e':es) <- runDB $ fmap (map entityVal) (selectList [EmploymentUser ==. cid] []) let twoyear = twoYearsFrom $ employmentStartDate e' username = userIdent user (currentyear, currentmonth) = monthOf today |