The experimental change worked well.

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

diff --git a/Rakka/Wiki/Engine.hs b/Rakka/Wiki/Engine.hs
index 5aa5db4ac90e5d81a13ac28eedd086e90a585766..4cb150fa74b458b3a9431aa2248154123f239039 100644 (file)
--- a/Rakka/Wiki/Engine.hs
+++ b/Rakka/Wiki/Engine.hs
@@ -40,9 +40,9 @@ formatWikiPage env
             Left  err
                 -> formatParseError -< err
 
-            Right elems
+            Right blocks
                 -> do BaseURI baseURI <- getSysConfA (envSysConf env) (BaseURI undefined) -< ()
-                      formatWikiElements -< (baseURI, elems)
+                      formatWikiBlocks -< (baseURI, blocks)
 
 
 formatParseError :: ArrowXml a => a ParseError XmlTree