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

refactor: hlint

Browse Source
This commit is contained in:
Gregor Kleen 2021-05-04 19:40:50 +02:00
parent 3c7434479f
commit c2212a86e6
2 changed files with 9 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.gitlab-ci.yml
View File

@ -271,8 +271,7 @@ yesod:test:hlint:
before_script: *haskell
script:
- stack install hlint
- stack exec -- hlint --cc src > gl-code-quality-report.json
- jq . gl-code-quality-report.json
- stack exec -- hlint --cc src > gl-code-quality-report.json || jq . gl-code-quality-report.json
artifacts:
paths:
@ -307,8 +306,7 @@ yesod:test:hlint:dev:
before_script: *haskell
script:
- stack install hlint
- stack exec -- hlint --cc src > gl-code-quality-report.json
- jq . gl-code-quality-report.json
- stack exec -- hlint --cc src > gl-code-quality-report.json || jq . gl-code-quality-report.json
artifacts:
paths:

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

@ -1132,27 +1132,13 @@ instance Binary userid => Binary (WorkflowRole userid)
instance (Binary fileid, Binary userid, Typeable fileid, Typeable userid) => Binary (WorkflowAction fileid userid)
instance (Binary fileid, Binary userid, Typeable fileid, Typeable userid) => Binary (WorkflowFieldPayloadW fileid userid) where
get = do
tag <- Binary.get
case tag of
WFPText' -> do
t <- Binary.get
return $ WorkflowFieldPayloadW $ WFPText t
WFPNumber' -> do
n <- Binary.get
return $ WorkflowFieldPayloadW $ WFPNumber n
WFPBool' -> do
b <- Binary.get
return $ WorkflowFieldPayloadW $ WFPBool b
WFPDay' -> do
d <- Binary.get
return $ WorkflowFieldPayloadW $ WFPDay d
WFPFile' -> do
fid <- Binary.get
return $ WorkflowFieldPayloadW $ WFPFile fid
WFPUser' -> do
uid <- Binary.get
return $ WorkflowFieldPayloadW $ WFPUser uid
get = Binary.get >>= \case
WFPText' -> WorkflowFieldPayloadW . WFPText <$> Binary.get
WFPNumber' -> WorkflowFieldPayloadW . WFPNumber <$> Binary.get
WFPBool' -> WorkflowFieldPayloadW . WFPBool <$> Binary.get
WFPDay' -> WorkflowFieldPayloadW . WFPDay <$> Binary.get
WFPFile' -> WorkflowFieldPayloadW . WFPFile <$> Binary.get
WFPUser' -> WorkflowFieldPayloadW . WFPUser <$> Binary.get
put = \case
WorkflowFieldPayloadW (WFPText t ) -> Binary.put WFPText' >> Binary.put t
WorkflowFieldPayloadW (WFPNumber n ) -> Binary.put WFPNumber' >> Binary.put n