Fix SHOW-REPOSITORY

Now does not try to send login data if the request is not about a repository owned by the currently logged in user.
nixeagle · May 30, 2010 · 19ba247 · 19ba247
1 parent 64928fd
commit 19ba247
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/repositories.lisp b/repositories.lisp
@@ -123,7 +123,9 @@ slots."))
 (defmethod search-repositories ((search-string string))
   (to-json (github-simple-request "repos" "search" search-string)))
 (defmethod show-repository ((username string) (repository string) &key login token)
-  (to-json (request login token `("repos" "show" ,username ,repository))))
+  (if (equalp username login)
+      (to-json (authed-request login to-json (list "repos" "show" username repository)))
+      (to-json (github-simple-request "repos" "show" username repository))))
 (defmethod show-user-repositories ((username string))
   (to-json (github-simple-request "repos" "show" username)))