Fixed the munging of names to always use the Meta tag again

This commit is contained in:
Neil Brown 2009-04-10 19:28:03 +00:00
parent e462da4a76
commit 2690ec1d1b

View File

@ -283,7 +283,7 @@ makeUniqueName m s
-- For #INCLUDEd files, they might be included twice, so we
-- still need the extra suffixes:
else do put $ cs { csNameCounter = csNameCounter cs + 1 }
return $ "u" ++ show (csNameCounter cs)
return $ mungeMeta m ++ "u" ++ show (csNameCounter cs)
return $ s ++ "_" ++ munged
mungeMeta :: Meta -> String