From 4bb8fdb70dd1fb14fb3ab029f93441a4e095b883 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 9 Dec 2012 13:08:57 -0400 Subject: [PATCH] typo --- Build/OSXMkLibs.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Build/OSXMkLibs.hs b/Build/OSXMkLibs.hs index ab78e39bf0..c03fb81bec 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