fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor(workflows): reformat Show instance

Browse Source
This commit is contained in:
Sarah Vaupel 2020-04-08 13:03:36 +02:00 committed by Gregor Kleen
parent 8b67481228
commit da2bdeb6ab
1 changed files with 29 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
src/Model/Types/Workflow.hs
View File

@ -105,11 +105,35 @@ data WorkflowPayloadField fileid userid (payload :: *) where
} -> WorkflowPayloadField fileid userid userid } -> WorkflowPayloadField fileid userid userid
instance (Show fileid, Show userid) => Show (WorkflowPayloadField fileid userid payload) where instance (Show fileid, Show userid) => Show (WorkflowPayloadField fileid userid payload) where
show (WorkflowPayloadFieldText{..} ) = "TextField{label = " <> show wpftLabel <> ", placeholder = " <> show wpftPlaceholder <> ", tooltip = " <> show wpftTooltip <> ", default = " <> show wpftDefault <> ", optional = " <> show wpftOptional <> "}" show (WorkflowPayloadFieldText{..} ) = "TextField{label = " <> show wpftLabel
show (WorkflowPayloadFieldNumber{..}) = "NumberField{label = " <> show wpfnLabel <> ", placeholder = " <> show wpfnPlaceholder <> ", tooltip = " <> show wpfnTooltip <> ", default = " <> show wpfnDefault <> ", min = " <> show wpfnMin <> ", max = " <> show wpfnMax <> ", step = " <> show wpfnStep <> ", optional = " <> show wpfnOptional <> "}" <> ", placeholder = " <> show wpftPlaceholder
show (WorkflowPayloadFieldBool{..} ) = "BoolField{label = " <> show wpfbLabel <> ", tooltip = " <> show wpfbTooltip <> ", default = " <> show wpfbDefault <> "}" <> ", tooltip = " <> show wpftTooltip
show (WorkflowPayloadFieldFile{..} ) = "FileField{label = " <> show wpffLabel <> ", tooltip = " <> show wpffTooltip <> ", default = " <> show wpffDefault <> ", optional = " <> show wpffOptional <> "}" <> ", default = " <> show wpftDefault
show (WorkflowPayloadFieldUser{..} ) = "UserField{label = " <> show wpfuLabel <> ", tooltip = " <> show wpfuTooltip <> ", default = " <> show wpfuDefault <> ", optional = " <> show wpfuOptional <> "}" <> ", optional = " <> show wpftOptional
<> "}"
show (WorkflowPayloadFieldNumber{..}) = "NumberField{label = " <> show wpfnLabel
<> ", placeholder = " <> show wpfnPlaceholder
<> ", tooltip = " <> show wpfnTooltip
<> ", default = " <> show wpfnDefault
<> ", min = " <> show wpfnMin
<> ", max = " <> show wpfnMax
<> ", step = " <> show wpfnStep
<> ", optional = " <> show wpfnOptional
<> "}"
show (WorkflowPayloadFieldBool{..} ) = "BoolField{label = " <> show wpfbLabel
<> ", tooltip = " <> show wpfbTooltip
<> ", default = " <> show wpfbDefault
<> "}"
show (WorkflowPayloadFieldFile{..} ) = "FileField{label = " <> show wpffLabel
<> ", tooltip = " <> show wpffTooltip
<> ", default = " <> show wpffDefault
<> ", optional = " <> show wpffOptional
<> "}"
show (WorkflowPayloadFieldUser{..} ) = "UserField{label = " <> show wpfuLabel
<> ", tooltip = " <> show wpfuTooltip
<> ", default = " <> show wpfuDefault
<> ", optional = " <> show wpfuOptional
<> "}"