mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

use intercalate instead of MissingH's join

Browse source 
The two functions are identical.
This commit is contained in:
Joey Hess 2015-11-17 17:27:24 -04:00
parent 689bdae03a
commit 04e150abb3
Failed to extract signature
4 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Utility/FreeDesktop.hs
View file

@ -59,7 +59,7 @@ toString (ListV l)
| null l = ""
| otherwise = (intercalate ";" $ map (escapesemi . toString) l) ++ ";"
where
escapesemi = join "\\;" . split ";"
escapesemi = intercalate "\\;" . split ";"
genDesktopEntry :: String -> String -> Bool -> FilePath -> Maybe String -> [String] -> DesktopEntry
genDesktopEntry name comment terminal program icon categories = catMaybes