   (let [critical-count (-> environment :alerts :critical count)
         warning-count (-> environment :alerts :warning count)
         level (cond (-> environment :alerts not) :no-data
-                    (> critical-count 0) :critical
-                    (> warning-count 0) :warning
+                    (pos? critical-count) :critical
+                    (pos? warning-count) :warning
                     :else :ok)]
     [:a {:href (str "/" (:group-id environment) "/" (:id environment))
          :class (str "environment-overview " (name level))} 

        [:li "Warning: " [:span {:class "warning"} num-warning]]
        [:li "Critical: " [:span {:class "critical"} num-critical]]
        [:li "Unknown: " [:span {:class "unknown"} num-unknown]]]
       (if (> (+ num-warning num-critical num-unknown) 0)
         [:table {:class "problem-alerts"}
          [:thead [:tr [:td] [:td "Host"] [:td "Name"] [:td "Info"]]]
          (list-alerts (:critical alerts) "critical")

       [:ul {:class "status-list"}
        [:li "Up: " [:span {:class "ok"} (count (:up status))]]
        [:li "Down: " [:span {:class "critical"} num-down]]]
       (if (pos? num-down)
         [:ul {:class "down-hosts"}
          (for [down-host (:down status)]
            [:li down-host])])])
