30 lines
1009 B
Haskell
30 lines
1009 B
Haskell
module Handler.Utils.Workflow
|
|
( workflowsDisabledWarning
|
|
, module Reexport
|
|
) where
|
|
|
|
import Import
|
|
|
|
import Handler.Utils.I18n
|
|
|
|
import Handler.Utils.Workflow.Form as Reexport
|
|
import Handler.Utils.Workflow.EdgeForm as Reexport
|
|
import Handler.Utils.Workflow.Restriction as Reexport
|
|
import Handler.Utils.Workflow.CanonicalRoute as Reexport
|
|
import Handler.Utils.Workflow.Workflow as Reexport
|
|
|
|
|
|
workflowsDisabledWarning :: ( MonadHandler m
|
|
, HandlerSite m ~ UniWorX
|
|
, RenderMessage UniWorX titleMsg, RenderMessage UniWorX headingMsg
|
|
)
|
|
=> titleMsg -> headingMsg
|
|
-> m Html
|
|
-> m Html
|
|
workflowsDisabledWarning tMsg hMsg = volatileBool clusterVolatileWorkflowsEnabled warningHtml
|
|
where
|
|
warningHtml = liftHandler . siteLayoutMsg hMsg $ do
|
|
setTitleI tMsg
|
|
|
|
notificationWidget NotificationBroad Warning $(i18nWidgetFile "workflows-disabled")
|