Remove old crap from silenceView

This commit is contained in:
stuart nelson 2017-01-04 22:16:41 -05:00
parent 76e5443cb1
commit baed189a7a

View File

@ -31,18 +31,7 @@ view model =
genericListView silenceListView model.silences genericListView silenceListView model.silences
SilenceRoute name -> SilenceRoute name ->
let silenceView model.silence
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 labelButton dictMatchers)
]
_ -> _ ->
notFoundView model notFoundView model
@ -181,29 +170,19 @@ silenceListView silence =
silenceView : Silence -> Html msg silenceView : Silence -> Html msg
silenceView silence = silenceView silence =
div let
[ classList dictMatchers =
[ ( "fl", True ) List.map (\x -> ( x.name, x.value )) silence.matchers
, ( "w-50", False ) in
, ( "pa2", True ) div []
, ( "ma1", True ) [ dl [ class "mt2 f6 lh-copy" ]
, ( "w-25-m", True ) [ objectData (toString silence.id)
, ( "w-w-20-l", True ) , objectData silence.createdBy
, ( "ba b--gray", True ) , objectData silence.comment
]
]
[ dl
[ classList
[ ( "mt2", True )
, ( "f6", True )
, ( "lh-copy", True )
] ]
, ul [ class "list" ]
(List.map labelButton dictMatchers)
] ]
[ objectData (toString silence.id)
, objectData silence.createdBy
, objectData silence.comment
]
]
objectData : String -> Html msg objectData : String -> Html msg