Fix reporting of parse errors in notebookHEADmain

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)
   }