From 90643cb56b15d202e525f570909bd5cb5487d234 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Tue, 24 Apr 2007 22:04:29 +0000
Subject: [PATCH] Fix isConstantName

---
 fco2/Unnest.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fco2/Unnest.hs b/fco2/Unnest.hs
index 96e77a1..fb1b932 100644
--- 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