Commit 0b425b29 authored by Steffen Michels's avatar Steffen Michels

fix html view of dynamic editor list constructors with empty list as argument

parent a50ca35f
Pipeline #47173 passed with stages
in 9 minutes and 1 second
......@@ -536,10 +536,7 @@ where
: [toHtml a \\ a <- args]
]
ListCons _ ->
DivTag [classAttr] $ tl $ flatten
[ [SpanTag [] [Text label], toHtml a]
\\ a <- args
]
DivTag [classAttr] $ intersperse (SpanTag [] [Text label]) $ toHtml <$> args
_ ->
abort "corrupt dynamic editor value\n"
DEJSONValue json -> case builder of
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment