fix isPortableBuild test
authorRoss Paterson <ross@soi.city.ac.uk>
Fri, 6 Apr 2007 11:13:04 +0000 (11:13 +0000)
committerRoss Paterson <ross@soi.city.ac.uk>
Fri, 6 Apr 2007 11:13:04 +0000 (11:13 +0000)
Setup.hs

index 13502f4..f7a4a0c 100644 (file)
--- 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" /=)