Skip to content

Commit e557e41

Browse files
committed
Fix checkValidEnum outputting non-unique names when cViaASM is enabled
1 parent a6d9f73 commit e557e41

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 (ATT.trim 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)