Skip to content

Commit a428a8c

Browse files
committedApr 4, 2024
Fix checkValidEnum outputting non-unique names when cViaASM is enabled
1 parent a6d9f73 commit a428a8c

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed
 

‎src/CrossCodegen.hs

+1-1
Original file line numberDiff line numberDiff line change
@@ -307,7 +307,7 @@ outValidityCheck viaAsm s@(Special pos key value) uniq =
307307
case parseEnum value of
308308
Nothing -> ""
309309
Just (_,_,enums) | viaAsm ->
310-
concatMap (\(hName,cName) -> validConstTestViaAsm (fromMaybe "noKey" (ATT.trim `fmap` hName) ++ show uniq) cName) enums
310+
concatMap (\(hName,cName) -> validConstTestViaAsm (fromMaybe cName (ATT.trim `fmap` hName) ++ show uniq) cName) enums
311311
Just (_,_,enums) ->
312312
"void _hsc2hs_test" ++ show uniq ++ "()\n{\n" ++
313313
concatMap (\(_,cName) -> validConstTest cName) enums ++

0 commit comments

Comments
 (0)