From ac57b1cd32909c8314f3a3b15431d280911af643 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Fri, 26 May 2023 19:21:04 +0000 Subject: [PATCH] fix(build): linter complains --- src/Handler/Course/ParticipantInvite.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Course/ParticipantInvite.hs b/src/Handler/Course/ParticipantInvite.hs index 41b5a11dc..d1b53069a 100644 --- a/src/Handler/Course/ParticipantInvite.hs +++ b/src/Handler/Course/ParticipantInvite.hs @@ -311,7 +311,7 @@ upsertNewTutorial cid newTutorialName newTutorialType newFirstDay = runDB $ do existingTut <- getBy $ UniqueTutorial cid newTutorialName templateEnt <- selectFirst [TutorialType <-. tutorialTemplateNames newTutorialType] [Desc TutorialType] case (existingTut, newFirstDay, templateEnt) of - (Just (Entity{entityKey=tid}),_,_) -> return tid -- no need to update, we ignore the anchor day + (Just Entity{entityKey=tid},_,_) -> return tid -- no need to update, we ignore the anchor day (Nothing, Just moveDay, Just Entity{entityVal=Tutorial{..}}) -> do Course{..} <- get404 cid term <- get404 courseTerm