fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 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 (Just FavouriteManual, False, False) -> (Nothing, True)
Just (_reason, False, False) -> (Just FavouriteManual, False) Just (_reason, False, False) -> (Just FavouriteManual, False)
-- change stored reason in DB -- change stored reason in DB
before <- storedFavouriteReason tid ssh csh muid
if blacklist if blacklist
then do then do
E.deleteBy $ UniqueCourseFavourite uid cid E.deleteBy $ UniqueCourseFavourite uid cid
@ -75,11 +74,6 @@ postCFavouriteR tid ssh csh = void $ do
-- [CourseFavouriteReason E.=. E.val reason] -- [CourseFavouriteReason E.=. E.val reason]
Nothing -> E.deleteBy $ UniqueCourseFavourite uid cid Nothing -> E.deleteBy $ UniqueCourseFavourite uid cid
E.deleteBy $ UniqueCourseNoFavourite 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 () | otherwise -> pure ()
-- show course page again -- show course page again
redirect $ CourseR tid ssh csh CShowR redirect $ CourseR tid ssh csh CShowR