Convert silence view to use list buttons

This commit is contained in:
stuart nelson 2017-01-04 22:11:38 -05:00
parent 7bc5edd970
commit 76e5443cb1

View File

@ -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 ]