use pure or return rather than (:[]) or \x -> [x]
This commit is contained in:
parent
8b5de8588d
commit
8aa22a57ca
2 changed files with 2 additions and 2 deletions
|
@ -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!") $
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue