From bd931f1a4d34bd693dc7c23f29bc464b95351fa9 Mon Sep 17 00:00:00 2001
From: Simon Hengel <sol@typeful.net>
Date: Mon, 28 Jul 2025 09:58:39 +0700
Subject: [PATCH] Use unreserved tag name when creating NameCache to prevent
 collisions with wired-in names

---
 src/HieDb/Utils.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/HieDb/Utils.hs b/src/HieDb/Utils.hs
index 7c8083c..b6d9865 100644
--- a/src/HieDb/Utils.hs
+++ b/src/HieDb/Utils.hs
@@ -95,9 +95,9 @@ addTypeRef (getConn -> conn) hf arr ixs sp = go 0
 makeNc :: IO NameCache
 makeNc = do
 #if __GLASGOW_HASKELL__ >= 903
-  initNameCache 'z' knownKeyNames
+  initNameCache 'r' knownKeyNames
 #else
-  uniq_supply <- mkSplitUniqSupply 'z'
+  uniq_supply <- mkSplitUniqSupply 'r'
   return $ initNameCache uniq_supply knownKeyNames
 #endif