From b7bdac567ffe809b36e16fe29a663c1f437b38ae Mon Sep 17 00:00:00 2001
From: Clint Adams <clint@softwarefreedom.org>
Date: Thu, 5 Feb 2015 18:56:02 -0500
Subject: Handle multiple stints of employment

---
 Handler/Vacation.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Handler')

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
-- 
cgit v1.2.3