diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-11-06 01:18:22 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-11-06 01:18:22 -0400 |
| commit | 8beaba5bff7a34ee654006247271a99b86e55dca (patch) | |
| tree | 057c1caacf1ce6e7adab17c55a9449a9cf5c7f69 /Build/OSXMkLibs.hs | |
| parent | 821debc213a925e8f7d23246461b793eccb28e5c (diff) | |
use pure or return rather than (:[]) or \x -> [x]
Diffstat (limited to 'Build/OSXMkLibs.hs')
| -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 ed12a945f..dae9bc0ae 100644 --- a/Build/OSXMkLibs.hs +++ b/Build/OSXMkLibs.hs @@ -144,7 +144,7 @@ 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]) ['A' .. 'Z'] ++ + names = map pure ['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!") $ |