Custom ticket fields specify whether required

src/Vervis/Form/Workflow.hs

@@ -56,6 +56,7 @@ data NewField = NewField
     , nfName  :: Text
     , nfDesc  :: Maybe Text
     , nfType  :: WorkflowFieldType
+    , nfReq   :: Bool
     }
 
 newFieldAForm :: WorkflowId -> AForm Handler NewField
@@ -64,6 +65,7 @@ newFieldAForm wid = NewField
     <*> areq textField                 "Name*"       Nothing
     <*> aopt textField                 "Description" Nothing
     <*> areq (selectField optionsEnum) "Type*"       Nothing
+    <*> areq checkBoxField             "Required*"   Nothing
 
 newFieldForm :: WorkflowId -> Form NewField
 newFieldForm wid = renderDivs $ newFieldAForm wid

src/Vervis/Handler/Workflow.hs

@@ -149,6 +149,7 @@ postWorkflowFieldsR shr wfl = do
                     , workflowFieldName     = nfName nf
                     , workflowFieldDesc     = nfDesc nf
                     , workflowFieldType     = nfType nf
+                    , workflowFieldRequired = nfReq nf
                     }
             runDB $ insert_ field
             setMessage "Workflow field added."