import Network
import Network.HTTP.Lucu
import Rakka.Environment
+import Rakka.Resource.CheckAuth
import Rakka.Resource.Index
import Rakka.Resource.JavaScript
import Rakka.Resource.PageEntity
import Rakka.Resource.Object
+import Rakka.Resource.Render
import Rakka.Storage
import Subversion
import System.Console.GetOpt
defaultPort :: PortNumber
-defaultPort = fromIntegral 8080
+defaultPort = toEnum 8080
defaultLocalStateDir :: FilePath
defaultLocalStateDir = LOCALSTATEDIR -- replaced by CPP
options :: [OptDescr CmdOpt]
options = [ Option ['p'] ["port"]
- (ReqArg (OptPortNum . fromIntegral . read) "NUM")
+ (ReqArg (OptPortNum . toEnum . read) "NUM")
("Port number to listen. (default: " ++ show defaultPort ++ ")")
, Option ['d'] ["localstatedir"]
resTree :: Environment -> ResTree
resTree env
- = mkResTree [ ([] , resIndex env)
- , (["object"], resObject env)
- , (["js" ], javaScript )
+ = mkResTree [ ([] , resIndex env)
+ , (["checkAuth"], resCheckAuth env)
+ , (["js" ], javaScript )
+ , (["object" ], resObject env)
+ , (["render" ], resRender env)
]