diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-12-09 13:08:57 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-12-09 13:08:57 -0400 |
| commit | 63b4d134a253acd21b148ce0be41701dc62a810d (patch) | |
| tree | d6b9c0011c4460f8776ceda0aa0fb332a8c7c462 | |
| parent | ecd7822e0a9b7bf19c2c5f1f6f88c3ff9ce28709 (diff) | |
typo
| -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 ab78e39bf..c03fb81be 100644 --- a/Build/OSXMkLibs.hs +++ b/Build/OSXMkLibs.hs @@ -104,7 +104,7 @@ getLibName lib libmap = case M.lookup lib libmap of Nothing -> (nextfreename, M.insert lib nextfreename libmap) where 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 nextfreename = fromMaybe (error "ran out of short library names!") $ headMaybe $ dropWhile (`S.member` used) names |