Fix missing case in Java codegen
commit3d80dae618026a0e46b5ccd6245fe490078155ba
authorEdwin Brady <ecb10@st-andrews.ac.uk>
dateWed 11 Sep 2013, 10:10 (13 years ago)
parent911f5d7
src/IRTS/Java/Mangling.hs+1
@@ -92,6 +92,7 @@ mangleWithPrefix prefix (UN name) =
9292 | capitalize = (toUpper x) : (cleanWs False xs)
9393 | otherwise = x : (cleanWs False xs)
9494 cleanWs _ [] = []
95+mangleWithPrefix prefix s@(SN _) = mangleWithPrefix prefix (UN (showCG s))
9596
9697mangle :: (Applicative m, MonadError String m) => Name -> m Ident
9798mangle = mangleWithPrefix "__IDRCG__"