From ec931aa6550b47461e92062a703e6ef9f4c24b17 Mon Sep 17 00:00:00 2001
From: Boris Kolpackov <boris@codesynthesis.com>
Date: Sat, 10 Oct 2015 09:30:37 +0200
Subject: Implement --replace|-r mode for pkg-unpack; improve in pkg-fetch

---
 bpkg/pkg-purge | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'bpkg/pkg-purge')

diff --git a/bpkg/pkg-purge b/bpkg/pkg-purge
index 4765e60..0c88e19 100644
--- a/bpkg/pkg-purge
+++ b/bpkg/pkg-purge
@@ -14,13 +14,15 @@ namespace bpkg
   void
   pkg_purge (const pkg_purge_options&, cli::scanner& args);
 
-  // Remove package archive. If this fails, set the package state to
-  // broken, commit the transaction, and fail.
+  // Remove package's filesystem objects (the source directory and, if
+  // the archive argument is true, the package archive). If this fails,
+  // set the package state to broken, commit the transaction, and fail.
   //
   void
-  pkg_purge_archive (const dir_path& configuration,
-                     transaction&,
-                     const shared_ptr<selected_package>&);
+  pkg_purge_fs (const dir_path& configuration,
+                transaction&,
+                const shared_ptr<selected_package>&,
+                bool archive = true);
 }
 
 #endif // BPKG_PKG_PURGE
-- 
cgit v1.1