module Main where

import Network.URI (URIAuth(..))
import System.Archive.Site (BackupTarget(..), backup)

main = backup (BackupTarget
               { app = "clckwrks-dot-com-production"
               , auth = URIAuth { uriUserInfo = "upload@"
                                , uriRegName = "clckwrks.com"
                                , uriPort = ""}
               , keep = 50
               , localTop = "/home/autobuilder/backups"
               , remoteTop = "/srv" })