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 +++
 templates/userpage.hamlet | 7 +++++++
 2 files changed, 10 insertions(+)

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
diff --git a/templates/userpage.hamlet b/templates/userpage.hamlet
index 504bd22..bacd299 100644
--- a/templates/userpage.hamlet
+++ b/templates/userpage.hamlet
@@ -8,6 +8,13 @@ $forall Entity _ emp <- employments
       \ until #
       <strong>
         #{show enddate}
+    $if parttime emp
+      , part-time at #
+      <strong>
+        #{show (employmentCommitment emp)}
+    $else
+      , full-time
+
 
 $if isThisUser
   <p>
-- 
cgit v1.2.3