fix monitoring spec errors

src/dda/backup/monitoring/domain.clj

@@ -1,17 +1,15 @@
 (ns dda.backup.monitoring.domain
   (:require
    [dda.backup.restic.domain :as rd]
+   [dda.backup.monitoring.element :as e]
    [orchestra.core :refer [defn-spec]]
    [clojure.spec.alpha :as s]))
 
 (s/def ::type #{"gauge"})
-(s/def ::labels map?)
+(s/def ::value (s/+ ::e/metric-element))
-(s/def ::metric-value pos?)
-(s/def ::metric-element (s/keys :req-un [::labels ::metric-value]))
-(s/def ::value (s/+ ::metric-element))
 (s/def ::metric (s/keys :req-un [::type
                                  ::value]))
-(s/def ::backup-size (s/spec ::metric-value))
+(s/def ::backup-size (s/spec ::e/value))
 
 (s/def ::docstring string?)
 (s/def ::__name__ string?)

src/dda/backup/monitoring/element.clj

@@ -0,0 +1,7 @@
+(ns dda.backup.monitoring.element
+  (:require
+   [clojure.spec.alpha :as s]))
+
+(s/def ::labels map?)
+(s/def ::value pos?)
+(s/def ::metric-element (s/keys :req-un [::labels ::value]))

test/dda/backup/monitoring/domain_test.clj

@@ -1,7 +1,6 @@
 (ns dda.backup.monitoring.domain-test
   (:require
    [clojure.test :refer [deftest is are testing run-tests]]
-   [orchestra.spec.test :as st]
    [dda.backup.monitoring.domain :as cut]))
 
 (deftest should-generate-monitoring-data