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)