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

Stopped warning about the _sizes variables being unused (but do remove them)

Browse Source
This commit is contained in:
Neil Brown 2008-11-14 19:30:11 +00:00
parent bf2409d311
commit fec7510f3a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
checks/Check.hs
View File

@ -287,7 +287,9 @@ checkUnusedVar = forAnyASTStruct doSpec
doMaybe $ flip fmap mvars $ \vars -> do doMaybe $ flip fmap mvars $ \vars -> do
liftIO $ putStrLn $ "Analysing: " ++ show mspec liftIO $ putStrLn $ "Analysing: " ++ show mspec
when (not $ (Var $ A.Variable emptyMeta name) `Set.member` vars) $ when (not $ (Var $ A.Variable emptyMeta name) `Set.member` vars) $
do warnPC mspec WarnUnusedVariable $ formatCode "Unused variable: %" name do -- TODO have a more general way of not warning about compiler-generated names:
when (not $ "_sizes" `isSuffixOf` A.nameName name) $
warnPC mspec WarnUnusedVariable $ formatCode "Unused variable: %" name
substitute scope substitute scope
doSpec _ = return () doSpec _ = return ()