X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Rakka%2FWiki%2FEngine.hs;h=4cb150fa74b458b3a9431aa2248154123f239039;hb=87e8b02490f9ca337c1a25de4454d4ad6d1492c6;hp=5aa5db4ac90e5d81a13ac28eedd086e90a585766;hpb=ee964fa000ff558084db1477cc4edc3b85a39256;p=Rakka.git

diff --git a/Rakka/Wiki/Engine.hs b/Rakka/Wiki/Engine.hs
index 5aa5db4..4cb150f 100644
--- 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