{-# LANGUAGE DeriveDataTypeable, MultiParamTypeClasses, EmptyDataDecls #-}
module Take( Take ) where
import Core( make )
import CmdLib
import CmdLine

data Take deriving Typeable

instance Command Take Flag Setup where
  synopsis    _ = "hsbackup take [--repo <repository>] <directory>"
  description _ = "Backs up a directory tree."
  options     _ = [ Group "Basic options" (accept Repo) ]

  run _ setup [dir] | r <- repo setup = make dir r
  run _ _ _ = die "Take requires exactly 1 argument."