From 89a621ef076a0946f7fc0b2e07425c0093dddebd Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <vaupel.sarah@campus.lmu.de>
Date: Tue, 14 Apr 2020 11:44:47 +0200
Subject: [PATCH] refactor(workflow-types): use WorkflowPayloadFieldLabel as
 label type

---
 src/Model/Types/Workflow.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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