From 104500869e26ee66d482051dcf806cfc283007ce Mon Sep 17 00:00:00 2001 From: Filip Gralinski Date: Mon, 13 Mar 2017 11:26:39 +0100 Subject: [PATCH] show max submitters --- Handler/Achievements.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Handler/Achievements.hs b/Handler/Achievements.hs index 36833ad..117c1b9 100644 --- a/Handler/Achievements.hs +++ b/Handler/Achievements.hs @@ -55,6 +55,11 @@ achievementsTable = mempty ++ Table.text "description" (\(Entity _ achievement) -> (fromMaybe (""::Text) (achievementDescription achievement))) ++ Table.int "points" (\(Entity _ achievement) -> achievementPoints achievement) ++ timestampCell "deadline" (\(Entity _ achievement) -> achievementDeadline achievement) + ++ Table.string "max submitters" (\(Entity _ achievement) -> formatMaxSubmitters $ achievementMaxWinners achievement) + +formatMaxSubmitters :: Maybe Int -> String +formatMaxSubmitters Nothing = "no limit" +formatMaxSubmitters (Just m) = show m achievementForm :: Form (Text, Maybe Text, Int, Day, TimeOfDay, Maybe Int, Maybe Text) achievementForm = renderBootstrap3 BootstrapBasicForm $ (,,,,,,)