normalizeList: don't accept "" in a list of strings
commit0c4c1f2529a7e4b83ec21922d77c792a9bd1d662
authorPeter Simons <simons@cryp.to>
dateSat 17 Jan 2015, 21:24 (12 years ago)
parent12a6747
src/Cabal2Nix/Normalize.hs+1−1
@@ -41,7 +41,7 @@ quote (c:cs) = c : quote cs
4141quote [] = []
4242
4343normalizeList :: [String] -> [String]
44−normalizeList = nub . sortBy (compare `on` map toLower)
44+normalizeList = nub . sortBy (compare `on` map toLower) . filter (not . null)
4545
4646normalizeNixNames :: [String] -> [String]
4747normalizeNixNames = normalizeList . map toNixName