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

fix: tests

Browse Source
This commit is contained in:
Gregor Kleen 2020-08-27 18:33:41 +02:00
parent 2c4080d0e0
commit 5541619372
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/Handler/Sheet/PersonalisedFilesSpec.hs
View File

@ -61,7 +61,7 @@ spec = withApp . describe "Personalised sheet file zip encoding" $ do
let res = res' { personalisedSheetFileResidualSheet = shid, personalisedSheetFileResidualUser = uid } let res = res' { personalisedSheetFileResidualSheet = shid, personalisedSheetFileResidualUser = uid }
fRef <- lift (sinkFile f :: DB FileReference) fRef <- lift (sinkFile f :: DB FileReference)
now <- liftIO getCurrentTime 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) void . lift . insert $ _FileReference # (fRef, res)
return (f, res) return (f, res)