From 82b8e7a0fa718a6067697fef20c088d617c42a5f Mon Sep 17 00:00:00 2001
From: Max Lehman <comma@maxfieldlehman.com>
Date: Sun, 17 Mar 2019 04:26:24 -0700
Subject: [PATCH] Implement commit and revuild functionality.

---
 META6.json   | 2 +-
 bin/guestctl | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/META6.json b/META6.json
index 911a5d7..615a22c 100644
--- a/META6.json
+++ b/META6.json
@@ -11,7 +11,7 @@
         "templates/docker-compose.tmpl",
         "templates/sshd_config.tmpl"
     ],
-    "version" : "0.0.4",
+    "version" : "0.0.5",
     "production" : false,
     "perl" : "v6.*",
     "authors" : [
diff --git a/bin/guestctl b/bin/guestctl
index 7eae572..15b518a 100755
--- a/bin/guestctl
+++ b/bin/guestctl
@@ -52,8 +52,11 @@ multi MAIN($guest, GuestAction $action) {
             my $container-id = run(<<docker-compose ps -q $guest>>, :out, cwd => $guest-dir).out.slurp.chomp;
             my $commit-epoch-time = now.to-posix.head.Int;
             my $committed-image = "guest-" ~ $guest ~ ":" ~ $commit-epoch-time;
+            my $live-image = "guest-" ~ $guest ~ ":live";
             note qq{Committing guest "$guest" to image $committed-image.};
-            transparent-run <<docker commit $container-id $committed-image>>, cwd => $guest-dir;
+            transparent-run <<docker commit $container-id $committed-image>>, cwd => $guest-dir, :proceed;
+            transparent-run <<docker tag $committed-image $live-image>>, cwd => $guest-dir, :proceed;
+            transparent-run <<docker-compose up -d>>, cwd => $guest-dir, :proceed;
         }
 
         default {
-- 
2.38.5