The experiment has succeeded

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

diff --git a/Rakka/Wiki/Engine.hs b/Rakka/Wiki/Engine.hs
index ba9151c1a43137f9ae267cd3e07874ee445e5027..b6969cc4b60c3bf9aca16fe32961ce229ee68bc8 100644 (file)
--- a/Rakka/Wiki/Engine.hs
+++ b/Rakka/Wiki/Engine.hs
@@ -28,7 +28,7 @@ formatPage :: (ArrowXml a, ArrowChoice a, ArrowIO a) =>
            -> a Page XmlTree
 formatPage env
     = proc page
-    -> do BaseURI baseURI <- getSysConfA (envSysConf env) (BaseURI undefined) -< ()
+    -> do BaseURI baseURI <- getSysConfA (envSysConf env) -< ()
           wiki            <- wikifyPage env -< page
           xs              <- interpretCommandsA env -< (pageName page, (Just (page, wiki), wiki))
           formatWikiBlocks -< (baseURI, xs)
@@ -39,7 +39,7 @@ formatSubPage :: (ArrowXml a, ArrowChoice a, ArrowIO a) =>
               -> a (PageName, (Maybe Page, Page)) XmlTree
 formatSubPage env
     = proc (mainPageName, (mainPage, subPage))
-    -> do BaseURI baseURI <- getSysConfA (envSysConf env) (BaseURI undefined) -< ()
+    -> do BaseURI baseURI <- getSysConfA (envSysConf env) -< ()
           mainWiki        <- case mainPage of
                                Just page
                                    -> do wiki <- wikifyPage env -< page