summaryrefslogtreecommitdiff
path: root/Handler
diff options
context:
space:
mode:
authorClint Adams <clint@softwarefreedom.org>2013-10-24 17:46:38 -0400
committerClint Adams <clint@softwarefreedom.org>2013-10-24 17:46:38 -0400
commit2f77c64593ec205b1bdac5c76ba07e8e838d168b (patch)
tree15c6abb74419f15aea0abbff21288cd2c5091125 /Handler
parent515338784b8fc2fb5435ee4e061c092ff754d6cf (diff)
show full-/part-time on user page
Diffstat (limited to 'Handler')
-rw-r--r--Handler/User.hs3
1 files changed, 3 insertions, 0 deletions
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