Permalink
Browse files

Relax check on call of tomcat/server as crate function

The check was triggered by calling server with no direct options
  • Loading branch information...
1 parent 3410846 commit 3a08a379459c835c74b03bd785d2fd785dab684a @hugoduncan hugoduncan committed Aug 26, 2011
Showing with 2 additions and 1 deletion.
  1. +2 −1 tomcat/src/pallet/crate/tomcat.clj
@@ -807,7 +807,8 @@
(connector :port \"8080\" :protocol \"HTTP/1.1\"
:connectionTimeout \"20000\" :redirectPort \"8443\")))"
[& options]
- {:pre [(not (map? (first options)))]} ; check not called as a crate function
+ {:pre [(not (and (map? (first options))
+ (:server (first options))))]} ; check not called as crate fn
(pallet-type
::server
:members [::global-resources]

0 comments on commit 3a08a37

Please sign in to comment.