switched to buildView

This commit is contained in:
Adrian Cole 2012-04-24 12:26:37 -07:00
parent b8b1a5f58a
commit ba7ba36d20
2 changed files with 2 additions and 2 deletions

View File

@ -118,7 +118,7 @@ Options can also be specified for extension modules
(modules (apply modules (concat ext-modules (opts :extensions)))) (modules (apply modules (concat ext-modules (opts :extensions))))
(overrides (reduce #(do (.put %1 (name (first %2)) (second %2)) %1) (overrides (reduce #(do (.put %1 (name (first %2)) (second %2)) %1)
(Properties.) (dissoc opts :extensions))) (Properties.) (dissoc opts :extensions)))
(build BlobStoreContext))] (buildView BlobStoreContext))]
(if (some #(= :async %) options) (if (some #(= :async %) options)
(.getAsyncBlobStore context) (.getAsyncBlobStore context)
(.getBlobStore context))))) (.getBlobStore context)))))

View File

@ -90,7 +90,7 @@ Here's an example of creating and running a small linux node in the group webser
(modules (apply modules (concat ext-modules (opts :extensions)))) (modules (apply modules (concat ext-modules (opts :extensions))))
(overrides (reduce #(do (.put %1 (name (first %2)) (second %2)) %1) (overrides (reduce #(do (.put %1 (name (first %2)) (second %2)) %1)
(Properties.) (dissoc opts :extensions))) (Properties.) (dissoc opts :extensions)))
(build ComputeServiceContext) (buildView ComputeServiceContext)
(getComputeService)))) (getComputeService))))
([#^ComputeServiceContext compute-context] ([#^ComputeServiceContext compute-context]
(.getComputeService compute-context))) (.getComputeService compute-context)))