diff options
| -rw-r--r-- | src/lib/RenderHtml.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/lib/RenderHtml.hs b/src/lib/RenderHtml.hs index 82d7ef2b..588b888c 100644 --- a/src/lib/RenderHtml.hs +++ b/src/lib/RenderHtml.hs @@ -196,6 +196,9 @@ renderSourceBlock n b = RenderedSourceBlock , rsbText = T.unpack $ sbText b , rsbHtml = renderHtml case sbContents b of Misc (ProseBlock s) -> cdiv "prose-block" $ mdToHtml s + UnParseable _ e -> do + cdiv "code-block" (toHtml $ sbText b) + cdiv "err-result" (toHtml e) _ -> renderSpans n (sbLexemeInfo b) (sbText b) } |