X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FWiki%2FEngine.hs;h=b6969cc4b60c3bf9aca16fe32961ce229ee68bc8;hp=ba9151c1a43137f9ae267cd3e07874ee445e5027;hb=605a843e408a7ef475fbb5a26f408271ab315cc8;hpb=f4a655a34bc6017db008c2e915053958ae13ee81

diff --git a/Rakka/Wiki/Engine.hs b/Rakka/Wiki/Engine.hs
index ba9151c..b6969cc 100644
--- 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