diff --git a/src/Model/Types/Workflow.hs b/src/Model/Types/Workflow.hs
index 206733943..c76af1426 100644
--- a/src/Model/Types/Workflow.hs
+++ b/src/Model/Types/Workflow.hs
@@ -182,19 +182,19 @@ data WorkflowPayload fileid userid = forall payload. WorkflowPayload
   }
 
 data WorkflowFieldPayload fileid userid (payload :: *) where
-  WFPText   :: { wfptLabel  :: Text
+  WFPText   :: { wfptLabel  :: WorkflowPayloadFieldLabel
                , wfptText   :: Text
                } -> WorkflowFieldPayload fileid userid Text
-  WFPNumber :: { wfpnLabel  :: Text
+  WFPNumber :: { wfpnLabel  :: WorkflowPayloadFieldLabel
                , wfpnNumber :: Scientific
                } -> WorkflowFieldPayload fileid userid Scientific
-  WFPBool   :: { wfpbLabel  :: Text
+  WFPBool   :: { wfpbLabel  :: WorkflowPayloadFieldLabel
                , wfpbBool   :: Bool
                } -> WorkflowFieldPayload fileid userid Bool
-  WFPFile   :: { wfpfLabel  :: Text
+  WFPFile   :: { wfpfLabel  :: WorkflowPayloadFieldLabel
                , wfpfFile   :: fileid
                } -> WorkflowFieldPayload fileid userid fileid
-  WFPUser   :: { wfpuLabel  :: Text
+  WFPUser   :: { wfpuLabel  :: WorkflowPayloadFieldLabel
                , wfpuUser   :: userid
                } -> WorkflowFieldPayload fileid userid userid