Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Default branch to "master" for SHOW-COMMITS

  • Loading branch information...
commit 5130c6f9269754f5905deea1d505373b78fb72a8 1 parent 812eec0
@nixeagle authored
Showing with 6 additions and 4 deletions.
  1. +6 −4 repositories.lisp
View
10 repositories.lisp
@@ -255,7 +255,7 @@ These are basically read only ssh keys."))
-(defgeneric show-commits (username repository branch &key file login token)
+(defgeneric show-commits (username repository &key branch file login token)
(:documentation "List commits in USERNAME's REPOSITORY on BRANCH optionally for FILE."))
(defgeneric repository-network (username repository)
@@ -274,10 +274,12 @@ These are basically read only ssh keys."))
,repository "network"))))
-(defmethod show-commits ((username string) (repository string) (branch string)
- &key file login token)
+(defmethod show-commits ((username string) (repository string)
+ &key branch file login token)
(to-json (request login token `("commits" "list" ,username
- ,repository ,branch ,file))))
+ ,repository ,(or branch "master") ,file))))
+
+
(defmethod show-commit ((username string) (repository string) (sha string)
&key login token)
Please sign in to comment.
Something went wrong with that request. Please try again.