+{-# LANGUAGE
+ UnicodeSyntax
+ #-}
module Rakka.Resource.Index
( resIndex
)
where
+import Network.HTTP.Lucu
+import Rakka.Environment
+import Rakka.Page
+import Rakka.SystemConfig
-import Network.HTTP.Lucu
-import Rakka.Environment
-import Rakka.Page
-import Rakka.SystemConfig
-
-
-resIndex :: Environment -> ResourceDef
+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)
+ = Just $ do BaseURI baseURI ← getSysConf (envSysConf env)
+ DefaultPage name ← getSysConf (envSysConf env)
redirect Found (mkPageURI baseURI name)
, resHead = Nothing
, resPost = Nothing