Fix parens in sample and default project resources

pallet · Feb 17, 2013 · 9b2ab74 · 9b2ab74
1 parent 935140a
commit 9b2ab74
Show file tree

Hide file tree

Showing 3 changed files with 23 additions and 3 deletions.
diff --git a/resources/pallet/default-project-pallet.clj b/resources/pallet/default-project-pallet.clj
@@ -3,7 +3,7 @@
 ;;; By default, the pallet.api and pallet.crate namespaces are already referred.
 ;;; The pallet.crate.automated-admin-user/automated-admin-user us also referred.
 
-;;; (require '[your-ns :refer [your-group])
+;;; (require '[your-ns :refer [your-group]])
 
 (defproject {{project-name}}
   :provider {:vmfest

diff --git a/sample-project-pallet.clj b/sample-project-pallet.clj
@@ -4,7 +4,7 @@
 ;;; already referred.  The
 ;;; pallet.crate.automated-admin-user/automated-admin-user us also referred.
 
-;;; (require '[your-ns :refer [your-group])
+;;; (require '[your-ns :refer [your-group]])
 
 (defproject my-project
   ;; Provider specific configuration

diff --git a/src/pallet/compute.clj b/src/pallet/compute.clj
@@ -13,6 +13,10 @@
   (implementation/supported-providers))
 
 ;;; Compute Service instantiation
+(def ^:private
+  missing-provider-re
+  "No method in multimethod 'service' for dispatch value: :vmfest")
+
 (defn compute-service
   "Instantiate a compute service. The provider name should be a recognised
    jclouds provider, or \"node-list\". The other arguments are keyword value
@@ -26,7 +30,23 @@
    & {:keys [identity credential extensions node-list endpoint environment sub-services]
       :as options}]
   (implementation/load-providers)
-  (implementation/service provider-name options))
+  (try
+    (implementation/service provider-name options)
+    (catch IllegalArgumentException e
+      (if-let [[_ provider] (re-find missing-provider-re (.getMessage e))]
+        (let [cause (cond
+                     (= provider ":vmfest")
+                     "Possible missing dependency on pallet-vmfest."
+                     (find-ns 'pallet.compute.jclouds)
+                     "Possible missing dependency on a jclouds provider."
+                     :else
+                     "Possible missing dependency")]
+          (throw (ex-info
+                  (str "No pallet provider found for " provider
+                       ".  " cause)
+                  {:provider provider
+                   :cause cause})))
+        (throw e)))))
 
 ;;; Actions