From 45b86bd23bcd53c3a66a6b3d34afdc0debf1e5b2 Mon Sep 17 00:00:00 2001
From: Harendra Kumar <harendra@composewell.com>
Date: Tue, 21 Jul 2026 00:22:28 +0530
Subject: [PATCH] Display the binder without uniquifier in user errors

---
 src/Fusion/Plugin/Fuse.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Fusion/Plugin/Fuse.hs b/src/Fusion/Plugin/Fuse.hs
index 100c7b2..967c658 100644
--- a/src/Fusion/Plugin/Fuse.hs
+++ b/src/Fusion/Plugin/Fuse.hs
@@ -38,6 +38,7 @@ import Fusion.Plugin.Types
 import Fusion.Plugin.Common
     ( ReportMode(..)
     , altsContainsAnn
+    , binderDisplayName
     , dbgLevel
     , debug
     , dumpBindCore
@@ -442,7 +443,7 @@ markInline pass reportMode transform guts = do
                 let tycons = DL.nub
                         [ qualifiedTyConName tc
                         | (ps, tc) <- blocked, getNonRecBinder (head ps) == bb ]
-                putMsgS $ "fusion-plugin: " ++ showWithUnique dflags bb
+                putMsgS $ "fusion-plugin: " ++ binderDisplayName bb
                         ++ ": NOINLINE pragma blocks fusion ("
                         ++ DL.intercalate ", " tycons ++ ")"
                 dumpBindCore dflags pkgName modName modBinds bb)