try skipping OSX frameworks

This commit is contained in:
Joey Hess 2012-12-12 21:34:59 -04:00
parent 5b1fd7a01d
commit 900351ab85

View file

@ -62,11 +62,12 @@ otool appbase libmap = do
files <- filterM doesFileExist =<< dirContentsRecursive appbase files <- filterM doesFileExist =<< dirContentsRecursive appbase
process [] files libmap process [] files libmap
where where
unprocessed s = not ("@executable_path" `isInfixOf` s) want s = not ("@executable_path" `isInfixOf` s)
&& not (".framework" `isInfixOf` s)
process c [] m = return (nub $ concat c, m) process c [] m = return (nub $ concat c, m)
process c (file:rest) m = do process c (file:rest) m = do
_ <- boolSystem "chmod" [Param "755", File file] _ <- boolSystem "chmod" [Param "755", File file]
libs <- filter unprocessed . parseOtool libs <- filter want . parseOtool
<$> readProcess "otool" ["-L", file] <$> readProcess "otool" ["-L", file]
m' <- install_name_tool file libs m m' <- install_name_tool file libs m
process (libs:c) rest m' process (libs:c) rest m'