Corrected a mistake in a comment

This commit is contained in:
Neil Brown 2007-12-16 12:51:41 +00:00
parent 3a65651885
commit cc7d32ffeb

View File

@ -36,7 +36,7 @@ import Types
import Utils
-- TODO we should probably calculate this from the AST
-- TODO we should probably calculate this from the CFG
checkArrayUsage :: Data a => a -> PassM a
checkArrayUsage tree = (mapM_ checkPar $ listify (const True) tree) >> return tree
where