(module blogue-sync mzscheme
  (require (lib "unitsig.ss")
           (lib "process.ss"))
  (require "blogue-sig.ss")
  (provide (all-defined))
  
  (define (run-rsync config@)
    (define-values/invoke-unit/sig blogue-config^ config@)
    (system* "/usr/bin/rsync" 
              "-e" "ssh"
              "-rzcSL" "--delete" "--progress" "--stats"
              (string-append BuildRoot "/")
              "--exclude='*.DS_Store'" "--exclude='*.svn'"
              "--exclude='*~'"
              RsyncPath)))