Add naive implementation of the details for the Large and Banner messages

This commit is contained in:
Tessa Kelly 2021-05-14 14:34:11 -07:00
parent 8e3b69ca45
commit 3302dcd930

View File

@ -182,6 +182,12 @@ view attributes_ =
Just msg -> Just msg ->
largeDismissButton msg largeDismissButton msg
, case attributes.codeDetails of
Just details ->
viewCodeDetails details
Nothing ->
text ""
] ]
Banner -> Banner ->
@ -233,6 +239,12 @@ view attributes_ =
Just msg -> Just msg ->
bannerDismissButton msg bannerDismissButton msg
, case attributes.codeDetails of
Just details ->
viewCodeDetails details
Nothing ->
text ""
] ]