Remove Exception.

This commit is contained in:
Clemens Geibel 2022-08-12 11:41:44 +02:00
parent 0a40b5697f
commit 627d1e4d19

View file

@ -44,13 +44,12 @@
(def vol? (s/keys :req-un [::volume-total-storage-size])) (def vol? (s/keys :req-un [::volume-total-storage-size]))
(defn root-storage-by-volume-size (defn-spec root-storage-by-volume-size int?
[in] [volume-total-storage-size ::volume-total-storage-size]
(cond (cond
(<= in 5) (throw (Exception. "Volume smaller or equal 5Gi!\nIncrease volume-total-storage-size to value > 5")) (and (> volume-total-storage-size 5) (<= volume-total-storage-size 20)) 5
(and (> in 5) (<= in 20)) 5 (and (> volume-total-storage-size 20) (<= volume-total-storage-size 100)) 10
(and (> in 20) (<= in 100)) 10 (> volume-total-storage-size 100) 20))
(> in 100) 20))
(defn data-storage-by-volume-size (defn data-storage-by-volume-size
[total root] [total root]