From ecd7822e0a9b7bf19c2c5f1f6f88c3ff9ce28709 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 9 Dec 2012 13:06:59 -0400 Subject: avoid using short lib names that clash with unix command names --- Build/OSXMkLibs.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'Build') diff --git a/Build/OSXMkLibs.hs b/Build/OSXMkLibs.hs index 4535073d7..ab78e39bf 100644 --- a/Build/OSXMkLibs.hs +++ b/Build/OSXMkLibs.hs @@ -103,9 +103,8 @@ getLibName lib libmap = case M.lookup lib libmap of Just n -> (n, libmap) Nothing -> (nextfreename, M.insert lib nextfreename libmap) where - names = map (\c -> [c]) letters ++ - [[l1, l2] | l1 <- letters, l2 <- letters] - letters = ['a' .. 'z'] ++ ['0' .. '9'] + names = map (\c -> [c]) ['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 -- cgit v1.2.3