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

fix: hlint

Browse Source
This commit is contained in:
Gregor Kleen 2020-01-17 19:59:55 +01:00
parent e2f32855bf
commit 4348efca35
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/Participants.hs
View File

@ -63,7 +63,7 @@ getParticipantsListR = do
getParticipantsR :: TermId -> SchoolId -> Handler TypedContent getParticipantsR :: TermId -> SchoolId -> Handler TypedContent
getParticipantsR tid ssh = do getParticipantsR tid ssh = do
csvName <- timestampCsv <*> fmap (flip (addExtension `on` unpack) extensionCsv) (getMessageRender <*> pure (MsgParticipantsCsvName tid ssh)) csvName <- timestampCsv <*> fmap ((flip addExtension `on` unpack) extensionCsv) (getMessageRender <*> pure (MsgParticipantsCsvName tid ssh))
setContentDisposition' $ Just csvName setContentDisposition' $ Just csvName
respondDefaultOrderedCsvDB $ E.selectSource partQuery .| C.map toParticipantEntry respondDefaultOrderedCsvDB $ E.selectSource partQuery .| C.map toParticipantEntry
where where