1 module Rakka.Resource.DumpRepos
6 import Control.Monad.Trans
7 import Network.HTTP.Lucu
8 import Rakka.Environment
9 import Subversion.Repository
11 resDumpRepos :: Environment -> ResourceDef
14 resUsesNativeThread = False
16 , resGet = Just $ dumpRepos $ envRepository env
24 dumpRepos :: Repository -> Resource ()
26 = do setContentType $ read "application/octet-stream"
27 -- FIXME: 最終更新時刻が判るはず。
28 dump <- liftIO $ dumpRepository repos Nothing Nothing False True