X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Rakka%2FResource%2FIndex.hs;h=db8552dd2774e3fc6b042fb39555b112ed2291ce;hb=605a843e408a7ef475fbb5a26f408271ab315cc8;hp=9db16eb7ff5ec5f1db742afeb4269576b7821fd7;hpb=dcfffa578c5dd6647a5be7d2074488a520dfcf2d;p=Rakka.git

diff --git a/Rakka/Resource/Index.hs b/Rakka/Resource/Index.hs
index 9db16eb..db8552d 100644
--- a/Rakka/Resource/Index.hs
+++ b/Rakka/Resource/Index.hs
@@ -15,8 +15,8 @@ resIndex env
         resUsesNativeThread = False
       , resIsGreedy         = False
       , resGet
-          = Just $ do BaseURI baseURI  <- getSysConf (envSysConf env) (BaseURI undefined)
-                      DefaultPage name <- getSysConf (envSysConf env) (DefaultPage undefined)
+          = Just $ do BaseURI baseURI  <- getSysConf (envSysConf env)
+                      DefaultPage name <- getSysConf (envSysConf env)
                       redirect Found (mkPageURI baseURI name)
       , resHead             = Nothing
       , resPost             = Nothing