From f64a8e4d516f6c285cc47dd2ef05e716998014d6 Mon Sep 17 00:00:00 2001 From: Ross Paterson Date: Fri, 6 Apr 2007 11:13:04 +0000 Subject: [PATCH 1/1] fix isPortableBuild test --- Setup.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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" /=) -- 1.7.10.4