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

…abled
haskell · Apr 4, 2024 · a428a8c · a428a8c
1 parent a6d9f73
commit a428a8c
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 cName (ATT.trim `fmap` hName) ++ show uniq) cName) enums
  Just (_,_,enums) ->
  "void _hsc2hs_test" ++ show uniq ++ "()\n{\n" ++
  concatMap (\(_,cName) -> validConstTest cName) enums ++