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