Skip to content

Commit

Permalink
Revert "allow uppercase letters in jar names"
Browse files Browse the repository at this point in the history
  • Loading branch information
ato committed Jun 17, 2012
1 parent 2d2dc51 commit 782249d
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions src/clojars/db.clj
Expand Up @@ -208,8 +208,8 @@
:version version})))

(defn add-jar [account jarmap & [check-only]]
(when-not (re-matches #"^[a-zA-Z0-9-_.]+$" (:name jarmap))
(throw (Exception. (str "Jar names must consist solely of "
(when-not (re-matches #"^[a-z0-9-_.]+$" (:name jarmap))
(throw (Exception. (str "Jar names must consist solely of lowercase "
"letters, numbers, hyphens and underscores."))))
(transaction
(if check-only
Expand All @@ -234,4 +234,4 @@
(or offset 0)]]
:results)]
;; TODO: do something less stupidly slow
(vec (map #(find-jar (:group_name %) (:jar_name %)) r))))
(vec (map #(find-jar (:group_name %) (:jar_name %)) r))))

0 comments on commit 782249d

Please sign in to comment.