diff options
Diffstat (limited to 'Handler/User.hs')
| -rw-r--r-- | Handler/User.hs | 3 |
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 |