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

        [: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")

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