scheduleInput :: Html ()
scheduleInput = do
  form_ [class_ "pure-form pure-form-stacked", action_ "/schedule", method_ "post", enctype_ "application/json"] $
    fieldset_ $ do
      label_ [for_ "when"] "Start jobs at:"
      input_ [id_ "when", name_ "date", type_ "date"]
      input_ [id_ "when", name_ "time", type_ "time"]

      button_ [type_ "submit", class_ "pure-button pure-button-primary"] "Schedule"
scheduleInput :: Html ()
scheduleInput = do
  form_ [class_ "pure-form pure-form-stacked", action_ "/schedule", method_ "post", enctype_ "application/json"] $
    fieldset_ $ do
      label_ [for_ "when"] "Start jobs at:"
      input_ [id_ "when", name_ "date", type_ "date"]
      input_ [id_ "when", name_ "time", type_ "time"]

      button_ [type_ "submit", class_ "pure-button pure-button-primary"] "Schedule"
scheduleInput = do
  form_ [class_ "pure-form pure-form-stacked", action_ "/schedule", method_ "post", enctype_ "application/json"] $
    fieldset_ $ do
      label_ [for_ "when"] "Start jobs at:"
      input_ [id_ "when", name_ "date", type_ "date"]
      input_ [id_ "when", name_ "time", type_ "time"]

      button_ [type_ "submit", class_ "pure-button pure-button-primary"] "Schedule"