updateContest :: Contest -> DatabaseT ()
updateContest c = do
  contest <- findContest [ContestName ==. contestName c]
  case liftM entityKey contest of
    Nothing -> return ()
    Just contestId -> runSql $ replace contestId c
updateContest :: Contest -> DatabaseT ()
updateContest c = do
  contest <- findContest [ContestName ==. contestName c]
  case liftM entityKey contest of
    Nothing -> return ()
    Just contestId -> runSql $ replace contestId c
updateContest c = do
  contest <- findContest [ContestName ==. contestName c]
  case liftM entityKey contest of
    Nothing -> return ()
    Just contestId -> runSql $ replace contestId c