mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

tweak

Browse source
This commit is contained in:
Joey Hess 2012-12-09 12:44:02 -04:00
parent 8e26b2f941
commit 9370c32290
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Build/OSXMkLibs.hs
View file

@ -102,8 +102,7 @@ install_name_tool binary (lib:rest) libmap = do
getLibName :: FilePath -> LibMap -> (FilePath, LibMap)
getLibName lib libmap = case M.lookup lib libmap of
Just n -> (n, libmap)
Nothing -> let n = nextfreename
in (n, M.insert lib n libmap)
Nothing -> (nextfreename, M.insert lib nextfreename libmap)
where
names = map (\c -> [c]) letters ++
[[l1, l2] | l1 <- letters, l2 <- letters]