- , resGet = Just $ do setContentType $ read "text/plain"
- output "FIXME: not implemented"
+ , resGet
+ = Just $ do BaseURI baseURI <- getSysConf (envSysConf env) (BaseURI undefined)
+ DefaultPage name <- getSysConf (envSysConf env) (DefaultPage undefined)
+ redirect Found (mkPageURI baseURI name)