diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-12-09 12:54:19 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-12-09 12:54:19 -0400 |
| commit | 0bffe4b2c81715bc9068d19cf408f642126774d2 (patch) | |
| tree | d39f14e114a3fbbae4caefd4a56348d2fc9d2bb5 | |
| parent | ad0681321d5efc9e11210c8c675e920fa28a7c3a (diff) | |
oh yeah, OSX is case insensative
| -rw-r--r-- | Build/OSXMkLibs.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Build/OSXMkLibs.hs b/Build/OSXMkLibs.hs index e6cac1850..23a824ced 100644 --- a/Build/OSXMkLibs.hs +++ b/Build/OSXMkLibs.hs @@ -106,7 +106,7 @@ getLibName lib libmap = case M.lookup lib libmap of where names = map (\c -> [c]) letters ++ [[l1, l2] | l1 <- letters, l2 <- letters] - letters = ['a' .. 'z'] ++ ['A' .. 'Z'] ++ ['0' .. '9'] + letters = ['a' .. 'z'] ++ ['0' .. '9'] used = S.fromList $ M.elems libmap nextfreename = fromMaybe (error "ran out of short library names!") $ headMaybe $ dropWhile (`S.member` used) names |