got this working

This commit is contained in:
Joey Hess 2012-11-26 17:11:09 -04:00
parent 44a7387eba
commit ad71ccdb57

View file

@ -37,11 +37,11 @@ installLibs appbase = do
needlibs <- otool appbase needlibs <- otool appbase
forM needlibs $ \lib -> do forM needlibs $ \lib -> do
let libdir = parentDir lib let libdir = parentDir lib
let dest = appbase </> lib let dest = appbase ++ lib
ifM (doesFileExist dest) ifM (doesFileExist dest)
( return Nothing ( return Nothing
, do , do
createDirectoryIfMissing True (appbase </> libdir) createDirectoryIfMissing True (appbase ++ libdir)
_ <- boolSystem "cp" [File lib, File dest] _ <- boolSystem "cp" [File lib, File dest]
putStrLn $ "installing " ++ lib putStrLn $ "installing " ++ lib
return $ Just libdir return $ Just libdir