import Data.Maybe
import Network
import Network.HTTP.Lucu
+import OpenSSL
import Rakka.Environment
import Rakka.Resource.CheckAuth
import Rakka.Resource.Index
main :: IO ()
-main = withSubversion $
+main = withOpenSSL $
+ withSubversion $
do (opts, nonOpts, errors) <- return . getOpt Permute options =<< getArgs
when (not $ null errors)