git.iko.soy/typeable/cabal2nix
on master help sign in
normalizeDescription: deal with empty strings
e62a162Peter Simons
src/Cabal2Nix/Package.hs+2−1
compare with master
unifiedsplit
@@ -139,7 +139,8 @@ unDep (Dependency (PackageName x) _) = x
139
139
140normalizeDescription :: String -> String
140normalizeDescription :: String -> String
141normalizeDescription desc
141normalizeDescription desc
142+ | null desc = []
142− | last desc == '.' && length (filter ('.'==) desc) == 1 = reverse (tail (reverse desc))
143+ | last desc == '.' && length (filter ('.'==) desc) == 1 = normalizeDescription (reverse (tail (reverse desc)))
143 | otherwise = unwords (words desc) >>= quote
144 | otherwise = unwords (words desc) >>= quote
144
145
145quote :: Char -> [Char]
146quote :: Char -> [Char]