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)