selectCourses :: [Filter Course] -> WithConfig [Entity Course]
selectCourses filter = do
  courses <- runDb $ selectList filter []
  return courses
selectCourses :: [Filter Course] -> WithConfig [Entity Course]
selectCourses filter = do
  courses <- runDb $ selectList filter []
  return courses
selectCourses filter = do
  courses <- runDb $ selectList filter []
  return courses