   (if (approver? (session/session-get :user))
     (do
       (update! :problems
-        {:_id id}
-        {:$set {:approved true}})
+               {:_id id}
+               {:$set {:approved true}})
       (flash-msg (str "Problem " id " has been approved!")
                  (str "/problem/" id)))
     (flash-error "You don't have access to this page" "/problems")))

(defn get-problem-list 
  ([] (get-problem-list {:approved true}))
  ([criteria] 
    (from-mongo
    (fetch :problems
           :only [:_id :title :tags :times-solved :user]
           :where criteria
           :sort {:_id 1}))))

(defn next-unsolved-problem [solved-problems]
  (when-let [unsolved (->> (get-problem-list)

    (let [{:keys [user title description tags tests]} (get-problem id)
          email (:email (get-user user))]
      (destroy! :problems
                {:_id id})
      (send-email
       {:from "team@4clojure.com"
        :to [email]
