Record before creating Rakka-Base.

[Rakka.git] / Rakka / Wiki / Engine.hs

diff --git a/Rakka/Wiki/Engine.hs b/Rakka/Wiki/Engine.hs
index ffaab2f4edf28a9a41b19be39b223be3999d4e8f..eb986ea0b46c23a36d6acdc336a7ac3abda516ab 100644 (file)
--- a/Rakka/Wiki/Engine.hs
+++ b/Rakka/Wiki/Engine.hs
@@ -132,4 +132,5 @@ everywhereM' f x = f x >>= gmapM (everywhereM' f)
 
 wikifyParseError :: ArrowXml a => a ParseError WikiPage
 wikifyParseError 
-    = proc err -> returnA -< [Preformatted [Text (show err)]]
+    = proc err -> returnA -< [Div [("class", "error")]
+                              [ Preformatted [Text (show err)] ]]