From 4348efca35c80720e6d49b55bcd6256ae52a0b55 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 17 Jan 2020 19:59:55 +0100 Subject: [PATCH] fix: hlint --- src/Handler/Participants.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Participants.hs b/src/Handler/Participants.hs index 428da5491..65e07da1e 100644 --- a/src/Handler/Participants.hs +++ b/src/Handler/Participants.hs @@ -63,7 +63,7 @@ getParticipantsListR = do getParticipantsR :: TermId -> SchoolId -> Handler TypedContent 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 respondDefaultOrderedCsvDB $ E.selectSource partQuery .| C.map toParticipantEntry where