import Data.Maybe
import Network
import Network.HTTP.Lucu
+import OpenSSL
import Rakka.Environment
import Rakka.Resource.CheckAuth
+import Rakka.Resource.DumpRepos
import Rakka.Resource.Index
import Rakka.Resource.JavaScript
import Rakka.Resource.PageEntity
main :: IO ()
-main = withSubversion $
+main = withOpenSSL $
+ withSubversion $
do (opts, nonOpts, errors) <- return . getOpt Permute options =<< getArgs
when (not $ null errors)
resTree env
= mkResTree [ ([] , resIndex env)
, (["checkAuth" ], resCheckAuth env)
+ , (["dumpRepos" ], resDumpRepos env)
, (["js" ], javaScript )
, (["object" ], resObject env)
, (["render" ], resRender env)
OptRebuildIndex -> True
_ -> False) opts
when rebuild
- $ rebuildIndex (envStorage env)
\ No newline at end of file
+ $ rebuildIndex (envStorage env)