Permalink
Browse files

updated project deps to latest versions

  • Loading branch information...
1 parent 407bca1 commit d681afa62773f6b212e400d74770f166653e35e0 @tavisrudd committed Sep 14, 2012
Showing with 14 additions and 14 deletions.
  1. +5 −5 project.clj
  2. +9 −9 src/birdseye/core.clj
View
10 project.clj
@@ -1,9 +1,9 @@
(defproject birdseye "1.0.0-SNAPSHOT"
:description "A sitemap/url-routing system for Clojure web apps."
- :dependencies [[org.clojure/clojure "1.3.0"]
- [org.clojure/core.match "0.2.0-alpha8"]
- [ring "1.0.1"]
- [clout "1.0.1"]
+ :dependencies [[org.clojure/clojure "1.4.0"]
+ [org.clojure/core.match "0.2.0-alpha10"]
+ [ring "1.1.5"]
+ [clout "1.1.0"]
]
:exclusions [clj-stacktrace]
- :dev-dependencies [[ring-mock "0.1.1"]])
+ :dev-dependencies [[ring-mock "0.1.3"]])
View
18 src/birdseye/core.clj
@@ -58,27 +58,27 @@
(or (nil? v)
(#{:nil 'nil} v)))]
(match/match [forms]
- [([(k :when nil-value?) & r] :seq)]
+ [([(k :guard nil-value?) & r] :seq)]
{:error :nil :message "nil is not a valid node-key"}
- [([(k :when false?) & r] :seq)]
+ [([(k :guard false?) & r] :seq)]
{:error :false :message "false is not a valid node-key"}
- [([(k :when keyword?) (next-k :when keyword?) & r] :seq)]
+ [([(k :guard keyword?) (next-k :guard keyword?) & r] :seq)]
{:node-key k}
- [([(k :when keyword?) (children :when node-children?) & r] :seq)]
+ [([(k :guard keyword?) (children :guard node-children?) & r] :seq)]
{:node-key k :children children}
- [([(k :when keyword?)
- (context-map :when map?)
- (children :when node-children?) & r] :seq)]
+ [([(k :guard keyword?)
+ (context-map :guard map?)
+ (children :guard node-children?) & r] :seq)]
{:node-key k :context-map context-map :children children}
- [([(k :when keyword?) (context-map :when map?) & r] :seq)]
+ [([(k :guard keyword?) (context-map :guard map?) & r] :seq)]
{:node-key k :context-map context-map}
- [([(k :when keyword?) & r] :seq)]
+ [([(k :guard keyword?) & r] :seq)]
{:node-key k}
[_]

0 comments on commit d681afa

Please sign in to comment.