insertCourse :: Course -> WithConfig (Key Course)
insertCourse course = do
  key <- runDb $ insert course
  return key
insertCourse :: Course -> WithConfig (Key Course)
insertCourse course = do
  key <- runDb $ insert course
  return key
insertCourse course = do
  key <- runDb $ insert course
  return key