import qualified Rakka.Wiki.Interpreter.Base as Base
import qualified Rakka.Wiki.Interpreter.Image as Image
import qualified Rakka.Wiki.Interpreter.PageList as PageList
-import qualified Rakka.Wiki.Interpreter.Trackback as Trackback
+--import qualified Rakka.Wiki.Interpreter.Trackback as Trackback
import qualified Rakka.Wiki.Interpreter.Outline as Outline
import Subversion.Repository
import System.Directory
import System.FilePath
-import System.IO
import System.Log.Logger
import Text.HyperEstraier
import Text.XML.HXT.Arrow.XmlIOStateArrow
storage <- mkStorage lsdir repos (makeDraft' interpTable)
authDB <- mkAuthDB lsdir
- return $ Environment {
+ return Environment {
envLocalStateDir = lsdir
, envLucuConf = lucuConf
, envRepository = repos
foldl (++) [] [ Base.interpreters
, Image.interpreters
, PageList.interpreters
- , Trackback.interpreters
+ --, Trackback.interpreters
, Outline.interpreters
]
where