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

refactor: minor

Browse Source
This commit is contained in:
Gregor Kleen 2020-11-30 12:26:33 +01:00
parent 48208c9105
commit 282d56a5c2
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/Utils/Workflow/Form.hs
View File

@ -122,9 +122,7 @@ workflowGraphForm template = validateAForm validateWorkflowGraphForm . hoistAFor
[fRef] -> return fRef [fRef] -> return fRef
_other -> throwE $ SomeMessage MsgWorkflowGraphFormInvalidNumberOfFiles _other -> throwE $ SomeMessage MsgWorkflowGraphFormInvalidNumberOfFiles
mContent <- for (fileContent $ sourceFile fRef) $ \fContent -> lift . runDB . runConduit $ fContent .| C.fold mContent <- for (fileContent $ sourceFile fRef) $ \fContent -> lift . runDB . runConduit $ fContent .| C.fold
content <- case mContent of content <- maybe (throwE $ SomeMessage MsgWorkflowGraphFormUploadIsDirectory) return mContent
Nothing -> throwE $ SomeMessage MsgWorkflowGraphFormUploadIsDirectory
Just c -> return c
either (throwE . SomeMessage . MsgYAMLFieldDecodeFailure . displayException) return . runCatch $ Yaml.decodeThrow content either (throwE . SomeMessage . MsgYAMLFieldDecodeFailure . displayException) return . runCatch $ Yaml.decodeThrow content
fromGraph :: WorkflowGraph FileIdent CryptoUUIDUser -> FileUploads fromGraph :: WorkflowGraph FileIdent CryptoUUIDUser -> FileUploads
fromGraph g = yieldM . runDB $ do fromGraph g = yieldM . runDB $ do