add confirmation to |ask

app/hood.hoon

@@ -95,6 +95,7 @@
 ::
 ++  coup-drum-phat  (wrap take-coup-phat):from-drum
 ++  coup-helm-hi    (wrap coup-hi):from-helm
+++  coup-helm-ask   (wrap coup-ask):from-helm
 ++  diff-sole-effect-drum-phat  (wrap diff-sole-effect-phat):from-drum
 ++  from-lib
   |*  _[%helm ..$ _abet]:(helm)

lib/helm.hoon

@@ -111,6 +111,11 @@
   ?>  ?=({@t $~} pax)
   (emit %flog ~ %text "hi {(trip i.pax)} {?~(cop "" "un")}successful")
 ::
+++  coup-ask
+  |=  {pax/path cop/(unit tang)}  =<  abet
+  ?>  ?=({@t $~} pax)
+  (emit %flog ~ %text "ask {<src.bow>} {?~(cop "" "un")}successful")
+::
 ++  poke-reload  |=(all/(list term) (poke-reload-desk %home all))
 ++  poke-reload-desk                                 ::  reload vanes
   |=  {syd/desk all/(list term)}  =<  abet