From: Ross Paterson <ross@soi.city.ac.uk>
Date: Fri, 6 Apr 2007 11:13:04 +0000 (+0000)
Subject: fix isPortableBuild test
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f64a8e4d516f6c285cc47dd2ef05e716998014d6;hp=18397cc96aab8208aa98387ab35cd555ef2756c2;p=ghc-base.git

fix isPortableBuild test
---

diff --git a/Setup.hs b/Setup.hs
index 13502f4..f7a4a0c 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -83,8 +83,7 @@ isPortableBuild :: String -> Bool
 isPortableBuild s
  | "GHC" `isPrefixOf` s = False
  | "Data.Generics" `isPrefixOf` s = False
- | otherwise = s `elem` ["Foreign.Concurrent",
-                         "System.Process"]
+ | otherwise = s `notElem` ["Foreign.Concurrent", "System.Process"]
 
 forGHCBuild :: String -> Bool
 forGHCBuild = ("GHC.Prim" /=)