-}
handleRedirect :: Environment -> Page -> Resource ()
handleRedirect env redir
- = do BaseURI baseURI <- getSysConf (envSysConf env) (BaseURI undefined)
+ = do BaseURI baseURI <- getSysConf (envSysConf env)
redirect Found (mkObjectURI baseURI $ redirName redir)
= do let lastMod = toClockTime $ pageLastMod page
case pageRevision page of
- Nothing -> foundTimeStamp lastMod
- Just rev -> foundEntity (strongETag $ show rev) lastMod
+ 0 -> foundTimeStamp lastMod -- 0 はデフォルトページ
+ rev -> foundEntity (strongETag $ show rev) lastMod
setContentType (pageType page)
outputLBS (pageContent page)