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

typo

Browse source
This commit is contained in:
Joey Hess 2012-12-09 13:08:57 -04:00
parent 5d73a790e8
commit 4bb8fdb70d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Build/OSXMkLibs.hs
View file

@ -104,7 +104,7 @@ getLibName lib libmap = case M.lookup lib libmap of
Nothing -> (nextfreename, M.insert lib nextfreename libmap) Nothing -> (nextfreename, M.insert lib nextfreename libmap)
where where
names = map (\c -> [c]) ['A' .. 'Z'] ++ names = map (\c -> [c]) ['A' .. 'Z'] ++
[[n, l] | n <- ['0' .. '9'], l <- ['A' .. 'Z'] [[n, l] | n <- ['0' .. '9'], l <- ['A' .. 'Z']]
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