diff --git a/src/Views.elm b/src/Views.elm index 809d9273..df2a6091 100644 --- a/src/Views.elm +++ b/src/Views.elm @@ -34,11 +34,14 @@ view model = let one = Debug.log "view: name" name + + dictMatchers = + List.map (\x -> ( x.name, x.value )) model.silence.matchers in div [] [ silenceView model.silence , ul [ class "list" ] - (List.map matcherView model.silence.matchers) + (List.map labelButton dictMatchers) ] _ -> @@ -203,14 +206,6 @@ silenceView silence = ] -matcherView : Matcher -> Html msg -matcherView matcher = - li [ class "dib mr1 mb2" ] - [ a [ href "#", class "f6 b db pa2 link dim dark-gray ba b--black-20 truncate" ] - [ text (String.join " " [ matcher.name, "=", matcher.value ]) ] - ] - - objectData : String -> Html msg objectData data = dt [ class "m10 black w-100" ] [ text data ]