From 2f77c64593ec205b1bdac5c76ba07e8e838d168b Mon Sep 17 00:00:00 2001
From: Clint Adams <clint@softwarefreedom.org>
Date: Thu, 24 Oct 2013 17:46:38 -0400
Subject: show full-/part-time on user page

---
 Handler/User.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'Handler')

diff --git a/Handler/User.hs b/Handler/User.hs
index 3d81f20..57886b6 100644
--- a/Handler/User.hs
+++ b/Handler/User.hs
@@ -89,3 +89,6 @@ pagePosition uid = do
     pageNumber <- fmap (either (const 1) id . fmap fst . fromMaybe (Right (1,"")) . fmap decimal) (lookupGetParam "page")
     cnt <- runDB $ count [TimeEntryUser ==. uid]
     return (pageNumber, ((cnt - 1) `div` 25) + 1)
+
+parttime :: Employment -> Bool
+parttime e = employmentCommitment e /= 1.0
-- 
cgit v1.2.3