1 {-# LANGUAGE OverloadedStrings #-}
    2 module Databrary.View.Periodic
    3   ( htmlPeriodic
    4   ) where
    5 
    6 import Databrary.Action.Types
    7 import Databrary.View.Form
    8 
    9 import {-# SOURCE #-} Databrary.Controller.Periodic
   10 
   11 htmlPeriodic :: RequestContext -> FormHtml f
   12 htmlPeriodic = htmlForm
   13   "run periodic"
   14   postPeriodic ()
   15   (field "weekly" $ inputCheckbox False)
   16   (const mempty)