Rain: corrected a comment in RainPasses

This commit is contained in:
Neil Brown 2007-09-15 11:25:35 +00:00
parent 4221b0d698
commit 9ffb5b5931

View File

@ -148,7 +148,7 @@ findMain x = do newMainName <- makeNonce "main_"
Nothing -> m
Just nd -> ((Map.insert n (nd {A.ndName = n})) . (Map.delete "main")) m
-- | A pass that finds all the 'A.ProcCall' in the AST, and checks that the actual parameters are valid inputs, given the 'A.Formal' parameters in the process's type
-- | A pass that finds all the 'A.ProcCall' and 'A.FunctionCall' in the AST, and checks that the actual parameters are valid inputs, given the 'A.Formal' parameters in the process's type
matchParamPass :: Data t => t -> PassM t
matchParamPass = everywhereM ((mkM matchParamPassProc) `extM` matchParamPassFunc)
where