From 23fbe88af9ae587d952a7b40629a99617693f1de Mon Sep 17 00:00:00 2001
From: Henry Ault <henry@tlon.io>
Date: Tue, 2 Jun 2015 12:51:29 -0700
Subject: [PATCH] better gcp commands

---
 base/ape/cloud/core.hook | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/base/ape/cloud/core.hook b/base/ape/cloud/core.hook
index 52a1181f7..d9dfe2fe1 100644
--- a/base/ape/cloud/core.hook
+++ b/base/ape/cloud/core.hook
@@ -260,6 +260,13 @@ $%  [%diff %json json]
       $=  action  $?  
       %start  %stop  %reboot  %delete
       ==  ==
+  =+  d=(~(got by insts.vat) id)
+  ~|  'can\'t find id'
+  =+  typ=?~(d !! -.d)
+  ~&  typ
+  ~!  typ
+  ?-  typ
+    %do
   =+  meth=?:(?=(%delete action) %delt [%post (jobe type/s/(convert-do action) ~)])
   ^-  move
   ~&  'do i get here?'
@@ -274,6 +281,9 @@ $%  [%diff %json json]
     *quay
    ==
    req
+    %gce
+    !!
+    ==
 ::
 ++  create-do
   |=  [os=bone act=json]
@@ -408,7 +418,6 @@ $%  [%diff %json json]
       ~|  'bad-json'^items
       %+  turn  items
       |=  in=json
-      =-  ~!  want=*[@t instance]  ~!  have=-  -
       =<  [id .]
       ^-  instance
       :-  %gce