Rakka/Resource/Index.hs

   1 module Rakka.Resource.Index
   2     ( resIndex
   3     )
   4     where
   5
   6 import           Network.HTTP.Lucu
   7 import           Rakka.Environment
   8 import           Rakka.Page
   9 import           Rakka.SystemConfig
  10
  11
  12 resIndex :: Environment -> ResourceDef
  13 resIndex env
  14     = ResourceDef {
  15         resUsesNativeThread = False
  16       , resIsGreedy         = False
  17       , resGet
  18           = Just $ do BaseURI baseURI  <- getSysConf (envSysConf env)
  19                       DefaultPage name <- getSysConf (envSysConf env)
  20                       redirect Found (mkPageURI baseURI name)
  21       , resHead             = Nothing
  22       , resPost             = Nothing
  23       , resPut              = Nothing
  24       , resDelete           = Nothing
  25       }
  26