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

oh yeah, OSX is case insensative

Browse source
This commit is contained in:
Joey Hess 2012-12-09 12:54:19 -04:00
parent 9370c32290
commit dea5599d3d
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Build/OSXMkLibs.hs
View file

@ -106,7 +106,7 @@ getLibName lib libmap = case M.lookup lib libmap of
where where
names = map (\c -> [c]) letters ++ names = map (\c -> [c]) letters ++
[[l1, l2] | l1 <- letters, l2 <- 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 used = S.fromList $ M.elems libmap
nextfreename = fromMaybe (error "ran out of short library names!") $ nextfreename = fromMaybe (error "ran out of short library names!") $
headMaybe $ dropWhile (`S.member` used) names headMaybe $ dropWhile (`S.member` used) names