This commit is contained in:
Joey Hess 2012-12-09 13:02:59 -04:00
parent 8c082cda2e
commit da53d0fa10

View file

@ -32,7 +32,7 @@ type LibMap = M.Map FilePath String
mklibs :: FilePath -> [FilePath] -> LibMap -> IO () mklibs :: FilePath -> [FilePath] -> LibMap -> IO ()
mklibs appbase libdirs libmap = do mklibs appbase libdirs libmap = do
(new, libmap') <- installLibs appbase libmap (new, libmap') <- installLibs appbase libmap
unless null new $ unless (null new) $
mklibs appbase (libdirs++new) libmap' mklibs appbase (libdirs++new) libmap'
{- Returns directories into which new libs were installed. -} {- Returns directories into which new libs were installed. -}