diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs index 46a97ee5f..d263c7757 100644 --- a/src/Handler/Course.hs +++ b/src/Handler/Course.hs @@ -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