testDayTimeField.hs

{-# LANGUAGE QuasiQuotes
           , TemplateHaskell
           , OverloadedStrings
           , TypeFamilies
           #-}

import Yesod
import Yesod.Form
import Yesod.Form.Jquery
import Control.Applicative
import Data.Time

data Test = Test

instance YesodJquery Test

data Params = Params
  { dateTime :: UTCTime
  }
  deriving (Show)

paramsFormlet :: YesodJquery m => Maybe Params -> Form s m Params
paramsFormlet mparams = fieldsToTable $ Params
  <$> jqueryDayTimeField "Date and Time" (fmap dateTime mparams)

getRootR :: GHandler Test Test RepHtml
getRootR = do
  (res,w,enc) <- runFormGet $ paramsFormlet Nothing
  defaultLayout $ do
    [$hamlet|
$show res$
%form!enctype=$enc$!method=GET
  %table
    ^w^
    %tr
      %td!colspan=2
        %input!type=submit
|]

mkYesod "Test" [$parseRoutes|
/ RootR GET
|]

instance Yesod Test where approot _ = ""

main = warp 3000 Test