Browse files

Revert removal of optional user arg from mark-completed

  • Loading branch information...
1 parent c8974f1 commit 4bbf599cc1a8909f8e471474cd59f3fbcf729947 @chrismgray committed Dec 14, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/foreclojure/problems.clj
4 src/foreclojure/problems.clj
@@ -134,8 +134,8 @@
(record-golf-score! user-id problem-id (code-length code))
(save-solution user-id problem-id code)))
-(defn mark-completed [problem code]
- (let [user (session/session-get :user)
+(defn mark-completed [problem code & [user]]
+ (let [user (or user (session/session-get :user))
{:keys [_id approved]} problem
gist-link (html [:span.share
[:a.novisited {:href "/share/code"} "share"]

0 comments on commit 4bbf599

Please sign in to comment.