Permalink
Browse files

Some indentation cleanup

  • Loading branch information...
1 parent f11011d commit 95123c6e27dcc503b81dc36dd858b57f304ab8d8 @seancorfield committed Nov 17, 2012
Showing with 5 additions and 5 deletions.
  1. +5 −5 src/framework/one.clj
View
@@ -80,13 +80,13 @@
(if (.startsWith part ":")
(keyword (.substring part 1))
part))
- (parts req)))
+ (parts req)))
(defn- match-part [p r]
(cond
- (keyword? p) {p r}
- p (= r p)
- :else nil))
+ (keyword? p) {p r}
+ p (= r p)
+ :else nil))
(defn- substitute-route [route lookup tail]
(concat (map
@@ -116,7 +116,7 @@
matches (first (drop no-matches matching))
lookup (reduce (fn [a b]
(if (map? b) (merge a b) a)) {}
- matches)
+ matches)
url-rest (if (= [::empty] matches) url (drop (count matches) url))]
(substitute-route (first (drop no-matches new-routes)) lookup url-rest)))

0 comments on commit 95123c6

Please sign in to comment.