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) (BaseURI undefined)
                      DefaultPage name <- getSysConf (envSysConf env) (DefaultPage undefined)
                      redirect Found (mkPageURI baseURI name)
      , resHead             = Nothing
      , resPost             = Nothing
      , resPut              = Nothing
      , resDelete           = Nothing
      }