 (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}))))
+     (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]

       [:button.large {:id "run-button" :type "submit"} "Run"]
       (when-not approved
         [:span [:button.large {:id "reject-button"} "Reject"]
          [:button.large {:id "edit-button"} "Edit"]
          [:button.large {:id "approve-button"} "Approve"]]))]))

(def-page problem-page []
  [:div.message (session/flash-get :message)]
