{-# LANGUAGE
    UnicodeSyntax
  #-}
module Rakka.Resource.Index
    ( resIndex
    )
    where
import Network.HTTP.Lucu
import Rakka.Environment
import Rakka.Page
import Rakka.SystemConfig

resIndex ∷ Environment → ResourceDef
resIndex env
    = ResourceDef {
        resUsesNativeThread = False
      , resIsGreedy         = False
      , resGet
          = Just $ do BaseURI baseURI  ← getSysConf (envSysConf env)
                      DefaultPage name ← getSysConf (envSysConf env)
                      redirect Found (mkPageURI baseURI name)
      , resHead             = Nothing
      , resPost             = Nothing
      , resPut              = Nothing
      , resDelete           = Nothing
      }