From c2bbf94c5c530f29a2f578e79ae432a53513ba4e Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Wed, 15 Sep 2021 23:39:08 +0200
Subject: [PATCH] Prevent name conflicts in generated code

---
 src/Quasar/Wayland/Protocol/TH.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Quasar/Wayland/Protocol/TH.hs b/src/Quasar/Wayland/Protocol/TH.hs
index 7a1e636..9dc6711 100644
--- a/src/Quasar/Wayland/Protocol/TH.hs
+++ b/src/Quasar/Wayland/Protocol/TH.hs
@@ -198,7 +198,8 @@ msgArgE _msg arg = varE (msgArgTempName arg)
 
 -- | Helper for 'msgConP' and 'msgArgE'.
 msgArgTempName :: ArgumentSpec -> Name
-msgArgTempName arg = mkName arg.name
+-- Add an "_" to prevent name conflicts with everything
+msgArgTempName arg = mkName $ arg.name <> "_"
 
 
 messageTypeDecs :: Name -> [MessageContext] -> Q [Dec]
-- 
GitLab