GititWithHack

jgm edited this page Sep 13, 2010 · 3 revisions
Clone this wiki locally

Courtesy of Jinjing Wang:

import Hack.Contrib.Middleware.ContentLength
import Hack.Frontend.Happstack
import Hack.Handler.Happstack
import Network.Gitit

main = do
  conf <- getDefaultConfig
  createStaticIfMissing conf
  createTemplateIfMissing conf
  createRepoIfMissing conf
  initializeGititState conf
  run . content_length $ serverPartToApp (wiki conf)