fix infinite loop

This commit is contained in:
Joey Hess 2012-12-09 12:14:19 -04:00
parent bed19fb65c
commit 76b7ab0b35

View file

@ -65,7 +65,7 @@ otool appbase libmap = do
libs <- filter unprocessed . parseOtool
<$> readProcess "otool" ["-L", file]
m' <- install_name_tool file libs m
process (libs:c) (file:rest) m'
process (libs:c) rest m'
parseOtool :: String -> [FilePath]
parseOtool = catMaybes . map parse . lines