import Network.HTTP.Lucu
import Rakka.Environment
+import Rakka.Page
+import Rakka.SystemConfig
resIndex :: Environment -> ResourceDef
= ResourceDef {
resUsesNativeThread = False
, resIsGreedy = False
- , resGet = Just $ do setContentType $ read "text/plain"
- output "FIXME: not implemented"
+ , resGet
+ = Just $ do BaseURI baseURI <- getSysConf (envSysConf env)
+ DefaultPage name <- getSysConf (envSysConf env)
+ redirect Found (mkPageURI baseURI name)
, resHead = Nothing
, resPost = Nothing
, resPut = Nothing