import qualified Data.Map as M
import Network
import qualified Network.HTTP.Lucu.Config as LC
+import Rakka.Authorization
import Rakka.Page
import Rakka.Storage
import Rakka.SystemConfig
import Text.XML.HXT.Arrow.XmlIOStateArrow
+logger :: String
logger = "Rakka.Environment"
, envSysConf :: !SystemConfig
, envStorage :: !Storage
, envInterpTable :: !InterpTable
+ , envAuthDB :: !AuthDB
}
createRepository reposPath [] []
sysConf <- mkSystemConfig lucuConf repos
storage <- mkStorage lsdir repos (makeDraft' interpTable)
+ authDB <- mkAuthDB lsdir
return $ Environment {
envLocalStateDir = lsdir
, envSysConf = sysConf
, envStorage = storage
, envInterpTable = interpTable
+ , envAuthDB = authDB
}
where
makeDraft' :: InterpTable -> Page -> IO Document