From a428a8cb4b559ecb338e8b87f451a1abbdb7c00f 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..89a4a99 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 cName (ATT.trim `fmap` hName) ++ show uniq) cName) enums
             Just (_,_,enums) ->
                 "void _hsc2hs_test" ++ show uniq ++ "()\n{\n" ++
                 concatMap (\(_,cName) -> validConstTest cName) enums ++