From 2690ec1d1b7ca2d4efdd98c32af24c4552e270ad Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Fri, 10 Apr 2009 19:28:03 +0000 Subject: [PATCH] Fixed the munging of names to always use the Meta tag again --- data/CompState.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/data/CompState.hs b/data/CompState.hs index e21c61b..ebddab0 100644 --- a/data/CompState.hs +++ b/data/CompState.hs @@ -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