Fix isConstantName

2007-04-24 22:04:29 +00:00 · 2007-04-24 22:04:29 +00:00 · 90643cb56b
commit 90643cb56b
parent 2383345f88
1 changed files with 1 additions and 1 deletions
--- a/fco2/Unnest.hs
+++ b/fco2/Unnest.hs
@ -98,7 +98,7 @@ removeFreeNames = doGeneric `extM` doSpecification `extM` doProcess
                                      A.ChannelName -> True
                                      A.VariableName -> True
                                      _ -> False]
-             freeNames <- filterM isConstantName freeNames''
+             freeNames <- filterM (liftM not . isConstantName) freeNames''
             types <- mapM typeOfName freeNames
             origAMs <- mapM abbrevModeOfName freeNames
             let ams = map makeAbbrevAM origAMs