From 5541619372f4a4e46ccc403004e869afdfaed7b0 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 27 Aug 2020 18:33:41 +0200 Subject: [PATCH] fix: tests --- test/Handler/Sheet/PersonalisedFilesSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/Handler/Sheet/PersonalisedFilesSpec.hs b/test/Handler/Sheet/PersonalisedFilesSpec.hs index 64b5e1dc1..8dacb3eca 100644 --- a/test/Handler/Sheet/PersonalisedFilesSpec.hs +++ b/test/Handler/Sheet/PersonalisedFilesSpec.hs @@ -61,7 +61,7 @@ spec = withApp . describe "Personalised sheet file zip encoding" $ do let res = res' { personalisedSheetFileResidualSheet = shid, personalisedSheetFileResidualUser = uid } fRef <- lift (sinkFile f :: DB FileReference) now <- liftIO getCurrentTime - void . lift . insert $ CourseParticipant cid (personalisedSheetFileResidualUser res) now Nothing Nothing CourseParticipantActive + void . lift . insert $ CourseParticipant cid (personalisedSheetFileResidualUser res) now Nothing CourseParticipantActive void . lift . insert $ _FileReference # (fRef, res) return (f, res)