From 53c2aa8e382dd50d09b385285bc3fa0b645ace0a Mon Sep 17 00:00:00 2001
From: Karen Arutyunov <karen@codesynthesis.com>
Date: Fri, 19 Aug 2016 17:37:29 +0300
Subject: Support system packages

---
 bpkg/pkg-purge.cxx | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'bpkg/pkg-purge.cxx')

diff --git a/bpkg/pkg-purge.cxx b/bpkg/pkg-purge.cxx
index 34ca7f8..c61658e 100644
--- a/bpkg/pkg-purge.cxx
+++ b/bpkg/pkg-purge.cxx
@@ -82,6 +82,8 @@ namespace bpkg
 
     db.erase (p);
     t.commit ();
+
+    p->state = package_state::transient;
   }
 
   int
@@ -190,16 +192,18 @@ namespace bpkg
       {
         p->state = package_state::fetched;
         db.update (p);
+        t.commit ();
       }
     }
     else
+    {
       db.erase (p);
-
-    t.commit ();
+      t.commit ();
+      p->state = package_state::transient;
+    }
 
     if (verb)
-        text << (o.keep () ? "keeping archive " : "purged ")
-             << p->name << " " << p->version;
+        text << (o.keep () ? "keeping archive " : "purged ") << *p;
 
     return 0;
   }
-- 
cgit v1.1