added min-disk to compute2.clj

This commit is contained in:
Adrian Cole 2012-06-19 18:40:45 -06:00
parent 8311d0a4e4
commit 8c4e74296d
1 changed files with 2 additions and 2 deletions

View File

@ -332,7 +332,7 @@ Here's an example of creating and running a small linux node in the group webser
:os-name-matches :os-description-matches :os-version-matches :os-name-matches :os-description-matches :os-version-matches
:os-arch-matches :os-64-bit :image-name-matches :os-arch-matches :os-64-bit :image-name-matches
:image-version-matches :image-description-matches :image-matches :image-version-matches :image-description-matches :image-matches
:min-cores :min-ram]))) :min-cores :min-ram :min-disk])))
(def (def
^{:doc "TemplateOptions functions" :private true} ^{:doc "TemplateOptions functions" :private true}
@ -425,7 +425,7 @@ Options correspond to TemplateBuilder methods."
os-name-matches os-description-matches os-version-matches os-name-matches os-description-matches os-version-matches
os-arch-matches os-64-bit mage-name-matches os-arch-matches os-64-bit mage-name-matches
image-version-matches image-description-matches image-matches image-version-matches image-description-matches image-matches
min-cores min-ram smallest fastest biggest any] min-cores min-ram min-disk smallest fastest biggest any]
:as options}] :as options}]
(let [builder (.. compute (templateBuilder))] (let [builder (.. compute (templateBuilder))]
(doseq [[option value] options] (doseq [[option value] options]