+{-# LANGUAGE
+ UnicodeSyntax
+ #-}
module Rakka.Resource.Index
( resIndex
)
where
+import Network.HTTP.Lucu
+import Rakka.Environment
+import Rakka.Page
+import Rakka.SystemConfig
-import Network.HTTP.Lucu
-import Rakka.Environment
-
-
-resIndex :: Environment -> ResourceDef
+resIndex ∷ Environment → ResourceDef
resIndex env
= 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