import Rakka.Environment
import Rakka.Resource.Index
import Rakka.Resource.Object
-import Rakka.Resource.Page
+import Rakka.Resource.Render
import System.Console.GetOpt
import System.Directory
import System.Environment
import System.Posix.Types
import System.Posix.User
+
data CmdOpt
= OptPortNum PortNumber
| OptLSDir FilePath
setUserID uid
env <- setupEnv lsdir portNum
- runHttpd (envLucuConf env) (resTree env) [fallbackPage env]
+ runHttpd (envLucuConf env) (resTree env) [fallbackRender env]
resTree :: Environment -> ResTree