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

quiet hlint

Browse Source
This commit is contained in:
Steffen Jost 2019-05-09 19:24:17 +02:00
parent aaedb64d36
commit 36358af8be
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Material.hs
View File

@ -360,5 +360,5 @@ getMArchiveR tid ssh csh mnm = do
E.where_ $ materialFile E.^. MaterialFileMaterial E.==. E.val mid E.where_ $ materialFile E.^. MaterialFileMaterial E.==. E.val mid
return file return file
fileSource' = fileSelect .| C.map entityVal fileSource' = fileSelect .| C.map entityVal
zipComment = Text.encodeUtf8 $ (termToText $ unTermKey tid) <> "-" <> toPathPiece (unSchoolKey ssh <> "-" <> csh <> ":" <> mnm) zipComment = Text.encodeUtf8 $ termToText (unTermKey tid) <> "-" <> toPathPiece (unSchoolKey ssh <> "-" <> csh <> ":" <> mnm)
fileSource' .| produceZip ZipInfo{..} .| C.map toFlushBuilder fileSource' .| produceZip ZipInfo{..} .| C.map toFlushBuilder