1 module Rakka.Resource.Index
6 import Network.HTTP.Lucu
7 import Rakka.Environment
9 import Rakka.SystemConfig
12 resIndex :: Environment -> ResourceDef
15 resUsesNativeThread = False
18 = Just $ do BaseURI baseURI <- getSysConf (envSysConf env)
19 DefaultPage name <- getSysConf (envSysConf env)
20 redirect Found (mkPageURI baseURI name)