Rakka/Resource/Index.hs

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