From 27507906d1671670ca9188315edc8235e3d6fe07 Mon Sep 17 00:00:00 2001 From: SJost Date: Wed, 7 Mar 2018 13:01:23 +0100 Subject: [PATCH] Minor comments --- src/Handler/Utils/Form.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs index 3fa164fbf..6b8a2166b 100644 --- a/src/Handler/Utils/Form.hs +++ b/src/Handler/Utils/Form.hs @@ -241,7 +241,8 @@ sheetTypeAFormReq d (Just (Normal p)) = utcTimeField :: (Monad m, RenderMessage (HandlerSite m) FormMessage) => Field m UTCTime -- StackOverflow: dayToUTC <$> (areq (jqueryDayField def {...}) settings Nothing) -utcTimeField = Field +-- TODO: Verify whether this is UTC or local time from Browser +utcTimeField = Field { fieldParse = parseHelper $ readTime , fieldView = \theId name attrs val isReq -> [whamlet|