remove unused cruft
This commit is contained in:
parent
dea5599d3d
commit
8c082cda2e
2 changed files with 6 additions and 24 deletions
|
@ -29,12 +29,11 @@ import qualified Data.Set as S
|
|||
type LibMap = M.Map FilePath String
|
||||
|
||||
{- Recursively find and install libs, until nothing new to install is found. -}
|
||||
mklibs :: FilePath -> [FilePath] -> LibMap -> IO [FilePath]
|
||||
mklibs :: FilePath -> [FilePath] -> LibMap -> IO ()
|
||||
mklibs appbase libdirs libmap = do
|
||||
(new, libmap') <- installLibs appbase libmap
|
||||
if null new
|
||||
then return (libdirs++new)
|
||||
else mklibs appbase (libdirs++new) libmap'
|
||||
unless null new $
|
||||
mklibs appbase (libdirs++new) libmap'
|
||||
|
||||
{- Returns directories into which new libs were installed. -}
|
||||
installLibs :: FilePath -> LibMap -> IO ([FilePath], LibMap)
|
||||
|
@ -115,7 +114,4 @@ main :: IO ()
|
|||
main = getArgs >>= go
|
||||
where
|
||||
go [] = error "specify OSXAPP_BASE"
|
||||
go (appbase:_) = do
|
||||
libdirs <- mklibs appbase [] M.empty
|
||||
writeFile (appbase </> "libdirs") $
|
||||
unlines $ nub libdirs
|
||||
go (appbase:_) = mklibs appbase [] M.empty
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
#!/bin/sh
|
||||
# Runs a shell command (or interactive shell) using the binaries and
|
||||
# libraries bundled with this app.
|
||||
# Runs a shell command (or interactive shell) using the binaries
|
||||
# bundled with this app.
|
||||
|
||||
set -e
|
||||
|
||||
|
@ -46,20 +46,6 @@ export ORIG_PATH
|
|||
PATH=$base/bin:$PATH
|
||||
export PATH
|
||||
|
||||
# This makes the linker first look in the library directories bundled
|
||||
# in this app. Only if it fails to find a library there will a system
|
||||
# library be used.
|
||||
#
|
||||
# This seems to work better than DYLD_LIBRARY_PATH, which can force
|
||||
# the wrong version of a library to be used, if the app bundles two
|
||||
# different versions of a single library. And it seems to work better
|
||||
# than DYLD_FALLBACK_LIBRARY_PATH, which fails to override old system
|
||||
# versions of libraries when a program in the app needs a newer version.
|
||||
#ORIG_DYLD_ROOT_PATH="$DYLD_ROOT_PATH"
|
||||
#export ORIG_DYLD_ROOT_PATH
|
||||
#DYLD_ROOT_PATH=$base
|
||||
#export DYLD_ROOT_PATH
|
||||
|
||||
ORIG_GIT_EXEC_PATH="$GIT_EXEC_PATH"
|
||||
export ORIG_GIT_EXEC_PATH
|
||||
GIT_EXEC_PATH=$base
|
||||
|
|
Loading…
Reference in a new issue