Add database name to event. Related to #400

lib/Red/Do.pm6

@@ -103,6 +103,7 @@ proto red-do(|) {
 multi red-do(*@blocks where .all ~~ Callable, Str :$with = "default", :$async) is export {
     X::Red::Do::DriverNotDefined.new(:driver($with)).throw unless %GLOBAL::RED-DEFULT-DRIVERS{$with}:exists;
     my @ret = do for @blocks {
+        my Str $*RED-DO-WITH = $with;
         red-do :with(%GLOBAL::RED-DEFULT-DRIVERS{$with}), $_, :$async
     }
     if $async {

lib/Red/Driver.pm6

@@ -22,7 +22,7 @@ multi method emit($data) {
 }
 
 multi method emit(Red::Event $event) {
-    $!supplier.emit: $event.clone: :db(self), :db-name(self.^name)
+    $!supplier.emit: $event.clone: :db(self), :db-name(self.^name), |(:db-name($_) with $*RED-DO-WITH)
 }
 
 method schema-reader(--> Red::SchemaReader)             { ... }