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

chore: remove debug messages

Browse Source
This commit is contained in:
Wolfgang Witt 2021-04-06 14:55:43 +02:00 committed by Gregor Kleen
parent 56c26f3e51
commit 664c915065
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Handler/Course.hs
View File

@ -58,7 +58,6 @@ postCFavouriteR tid ssh csh = void $ do
Just (Just FavouriteManual, False, False) -> (Nothing, True)
Just (_reason, False, False) -> (Just FavouriteManual, False)
-- change stored reason in DB
before <- storedFavouriteReason tid ssh csh muid
if blacklist
then do
E.deleteBy $ UniqueCourseFavourite uid cid
@ -75,11 +74,6 @@ postCFavouriteR tid ssh csh = void $ do
-- [CourseFavouriteReason E.=. E.val reason]
Nothing -> E.deleteBy $ UniqueCourseFavourite uid cid
E.deleteBy $ UniqueCourseNoFavourite uid cid
after <- storedFavouriteReason tid ssh csh muid
liftIO $ do
putStrLn $ "before: " <> pack (show before)
putStrLn $ "after: " <> pack (show after)
print (maybeReason, blacklist)
| otherwise -> pure ()
-- show course page again
redirect $ CourseR tid ssh csh CShowR