filter alarms by namespace in log-alarm/list

omnyway-labs · Jan 6, 2019 · f4d724e · f4d724e
1 parent cf70ccd
commit f4d724e
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/src/sherlog/log_alarm.clj b/src/sherlog/log_alarm.clj
@@ -9,8 +9,9 @@
 
 (defn list [log-group]
   (let [filters (log/list-filters log-group)
-        alarms  (metric/describe-alarms (map :name filters))]
-    (into [] (set/join filters alarms {:name :name}))))
+        alarms   (->> (metric/list-alarms)
+                      (filter #(= (:namespace %) log-group)))]
+    (into [] (set/join filters alarms {:name :metric}))))
 
 (defn- parse-trigger [trigger]
   (let [[op stat threshold] trigger]

diff --git a/src/sherlog/metric/alarm.clj b/src/sherlog/metric/alarm.clj
@@ -48,6 +48,7 @@
 (defn- as-alarm [a]
   {:name      (.getAlarmName a)
    :metric    (.getMetricName a)
+   :namespace (.getNamespace a)
    :period    (.getPeriod a)
    :statistic (.getStatistic a)
    :threshold (.getThreshold a)