import Rakka.Page
import Rakka.Storage
import Rakka.SystemConfig
-import System.FilePath
import System.Time
Just redir@(Redirection _ _ _ _)
-> handleRedirect env redir
- Just entity@(Entity _ _ _ _ _ _ _ _ _ _ _ _)
+ Just entity@(Entity _ _ _ _ _ _ _ _ _ _ _ _ _)
-> handleGetEntity env entity
-}
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)