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|