@@ -92,6 +92,7 @@ mangleWithPrefix prefix (UN name) =
92 | capitalize = (toUpper x) : (cleanWs False xs)
92 | capitalize = (toUpper x) : (cleanWs False xs)
93 | otherwise = x : (cleanWs False xs)
93 | otherwise = x : (cleanWs False xs)
94 cleanWs _ [] = []
94 cleanWs _ [] = []
95+mangleWithPrefix prefix s@(SN _) = mangleWithPrefix prefix (UN (showCG s))
96mangle :: (Applicative m, MonadError String m) => Name -> m Ident
97mangle :: (Applicative m, MonadError String m) => Name -> m Ident
97mangle = mangleWithPrefix "__IDRCG__"
98mangle = mangleWithPrefix "__IDRCG__"