isPortableBuild s
| "GHC" `isPrefixOf` s = False
| "Data.Generics" `isPrefixOf` s = False
- | otherwise = s `notElem` ["Foreign.Concurrent", "System.Process"]
+ | otherwise = s `notElem` ["Foreign.Concurrent"]
forGHCBuild :: String -> Bool
forGHCBuild = ("GHC.Prim" /=)