From e557e4189574b5c8dab40d5d6362fefed0f4b413 Mon Sep 17 00:00:00 2001
From: Joris Dral <joris@well-typed.com>
Date: Thu, 4 Apr 2024 18:18:35 +0200
Subject: [PATCH] Fix `checkValidEnum` outputting non-unique names when
 `cViaASM` is enabled

---
 src/CrossCodegen.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/CrossCodegen.hs b/src/CrossCodegen.hs
index 105214b..689d94b 100644
--- a/src/CrossCodegen.hs
+++ b/src/CrossCodegen.hs
@@ -307,7 +307,7 @@ outValidityCheck viaAsm s@(Special pos key value) uniq =
         case parseEnum value of
             Nothing -> ""
             Just (_,_,enums) | viaAsm ->
-                concatMap (\(hName,cName) -> validConstTestViaAsm (fromMaybe "noKey" (ATT.trim `fmap` hName) ++ show uniq) cName) enums
+                concatMap (\(hName,cName) -> validConstTestViaAsm (fromMaybe (ATT.trim cName) (ATT.trim `fmap` hName) ++ show uniq) cName) enums
             Just (_,_,enums) ->
                 "void _hsc2hs_test" ++ show uniq ++ "()\n{\n" ++
                 concatMap (\(_,cName) -> validConstTest cName) enums ++