diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-12-09 12:44:02 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-12-09 12:46:28 -0400 |
| commit | ad0681321d5efc9e11210c8c675e920fa28a7c3a (patch) | |
| tree | d523bfc324441efa6e2686834654e9872f000a67 | |
| parent | e30ac23d6895f8fb4320b58d855be74a778d2b87 (diff) | |
tweak
| -rw-r--r-- | Build/OSXMkLibs.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Build/OSXMkLibs.hs b/Build/OSXMkLibs.hs index ba4490f6d..e6cac1850 100644 --- a/Build/OSXMkLibs.hs +++ b/Build/OSXMkLibs.hs @@ -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] |