suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Neil Brown 2009-04-10 19:28:03 +00:00
parent e462da4a76
commit 2690ec1d1b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
data/CompState.hs
View File

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