From 57bda882dca9f548b737ad9b774649839cc1981a Mon Sep 17 00:00:00 2001
From: Elizabeth Mattijsen <liz@raku.rocks>
Date: Wed, 27 Dec 2023 11:32:57 +0100
Subject: [PATCH] Make dd show types better

---
 src/core.c/Any.rakumod | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/src/core.c/Any.rakumod b/src/core.c/Any.rakumod
index 39b2af886ab..dd703ebb753 100644
--- a/src/core.c/Any.rakumod
+++ b/src/core.c/Any.rakumod
@@ -614,13 +614,11 @@ sub dd(|c) {  # is implementation-detail
                 my $name :=
                   !nqp::istype($var.VAR,Failure) && try $var.VAR.name;
                 $name := '' if $name && ($name eq 'element' | '%');
-
-                my @parts = $var.WHAT.^name.split("::");
-                my $type := @parts.pop;
-                if @parts {
-                    $type := $type.chop if $type.contains(/ \W $ /);
-                }
-
+                my $type := $name
+                  ?? nqp::istype($var,Failure)
+                    ?? 'Failure'
+                    !! $var.VAR.of.raku
+                  !! '';
                 my $what := nqp::can($var,'raku')
                   ?? $var.raku
                   !! nqp::can($var,'perl')
@@ -634,6 +632,7 @@ sub dd(|c) {  # is implementation-detail
                             ?? BOOTThread($var)
                             !! "($var.^name() without .raku or .perl method)"
                     !! "($var.^name() without .raku or .perl method)";
+
                 note $name ?? "$type $name = $what" !! $what;
             }
         }