Fix checkValidEnum outputting non-unique names when cViaASM is en…

…abled
haskell · Apr 4, 2024 · e557e41 · e557e41
1 parent a6d9f73
commit e557e41
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 ++