skip frameworks

I suspect this might be related to recent reports of hangs.
This commit is contained in:
Joey Hess 2012-12-07 12:21:15 -04:00
parent 9e8703895c
commit f850a64bd0

View file

@ -51,7 +51,9 @@ otool :: FilePath -> IO [FilePath]
otool appbase = do
files <- filterM doesFileExist =<< dirContentsRecursive appbase
s <- readProcess "otool" ("-L" : files)
return $ nub $ parseOtool s
return $ nub $ filter (not . framework) $ parseOtool s
where
framework f = ".framework" `isInfixOf` f
parseOtool :: String -> [FilePath]
parseOtool = catMaybes . map parse . lines