normalizeDescription: deal with empty strings
commite62a1629426a025c5ea0848403ef33c610267f50
authorPeter Simons <simons@cryp.to>
dateThu 11 Aug 2011, 14:37 (15 years ago)
parent5987691
src/Cabal2Nix/Package.hs+2−1
@@ -139,7 +139,8 @@ unDep (Dependency (PackageName x) _) = x
139139
140140normalizeDescription :: String -> String
141141normalizeDescription desc
142− | last desc == '.' && length (filter ('.'==) desc) == 1 = reverse (tail (reverse desc))
142+ | null desc = []
143+ | last desc == '.' && length (filter ('.'==) desc) == 1 = normalizeDescription (reverse (tail (reverse desc)))
143144 | otherwise = unwords (words desc) >>= quote
144145
145146quote :: Char -> [Char]