4 module Rakka.Resource.Index
8 import Network.HTTP.Lucu
9 import Rakka.Environment
11 import Rakka.SystemConfig
13 resIndex ∷ Environment → ResourceDef
16 resUsesNativeThread = False
19 = Just $ do BaseURI baseURI ← getSysConf (envSysConf env)
20 DefaultPage name ← getSysConf (envSysConf env)
21 redirect Found (mkPageURI baseURI name)