module Rakka.Resource.DumpRepos
    ( resDumpRepos
    )
    where

import           Control.Monad.Trans
import           Network.HTTP.Lucu
import           Rakka.Environment
import           Subversion.Repository

resDumpRepos :: Environment -> ResourceDef
resDumpRepos env
    = ResourceDef {
        resUsesNativeThread = False
      , resIsGreedy         = False
      , resGet              = Just $ dumpRepos $ envRepository env
      , resHead             = Nothing
      , resPost             = Nothing
      , resPut              = Nothing
      , resDelete           = Nothing
      }


dumpRepos :: Repository -> Resource ()
dumpRepos repos
    = do setContentType $ read "application/octet-stream"
         -- FIXME: 最終更新時刻が判るはず。
         dump <- liftIO $ dumpRepository repos Nothing Nothing False True
         outputLBS dump