remove unused cruft

This commit is contained in:
Joey Hess 2012-12-09 12:59:34 -04:00
parent dea5599d3d
commit 8c082cda2e
2 changed files with 6 additions and 24 deletions

View file

@ -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