From 1d3f90c0a255d239bab86b8be6df64d163298481 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Thu, 2 May 2024 12:37:05 +0200 Subject: [PATCH] add tshirt deadline --- lib/Zureg/Hackathon/ZuriHac2024/Form.hs | 2 -- lib/Zureg/Hackathon/ZuriHac2024/Views.hs | 2 +- 2 files changed, 1 insertion(+), 3 deletions(-) diff --git a/lib/Zureg/Hackathon/ZuriHac2024/Form.hs b/lib/Zureg/Hackathon/ZuriHac2024/Form.hs index 9f4bd41..49c03d2 100644 --- a/lib/Zureg/Hackathon/ZuriHac2024/Form.hs +++ b/lib/Zureg/Hackathon/ZuriHac2024/Form.hs @@ -48,11 +48,9 @@ additionalInfoView view = do H.h2 "Optional information" H.p $ H.strong "T-Shirt" - {- H.p $ H.strong $ do "Please note that we have ordered the T-Shirts and cannot guarantee " "that you will receive one if you register at this time." - -} H.p $ "In what size would you like the free T-Shirt?" DH.label "tshirtSize" view "Size" diff --git a/lib/Zureg/Hackathon/ZuriHac2024/Views.hs b/lib/Zureg/Hackathon/ZuriHac2024/Views.hs index 92ffcc4..6fb908b 100644 --- a/lib/Zureg/Hackathon/ZuriHac2024/Views.hs +++ b/lib/Zureg/Hackathon/ZuriHac2024/Views.hs @@ -11,7 +11,7 @@ import qualified Zureg.Hackathon.ZuriHac2024.Model as ZH24 import Zureg.Model tShirtDeadline :: Time.UTCTime -tShirtDeadline = Time.UTCTime (Time.fromGregorian 2024 5 5) (12 * 3600) +tShirtDeadline = Time.UTCTime (Time.fromGregorian 2024 5 2) (12 * 3600) scanView :: Registrant ZH24.RegisterInfo -> H.Html scanView r@Registrant {..} = case rAdditionalInfo of