selectCourse :: [Filter Course] -> WithConfig (Maybe (Entity Course))
selectCourse filter = do
  course <- runDb $ selectFirst filter []
  return course
selectCourse :: [Filter Course] -> WithConfig (Maybe (Entity Course))
selectCourse filter = do
  course <- runDb $ selectFirst filter []
  return course
selectCourse filter = do
  course <- runDb $ selectFirst filter []
  return course