use intercalate instead of MissingH's join

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

View file

@ -14,6 +14,7 @@ import Utility.Process
import Data.String.Utils
import System.FilePath
import Data.Char
import Data.List
import Control.Applicative
import Prelude
@ -85,7 +86,7 @@ shellEscape :: String -> String
shellEscape f = "'" ++ escaped ++ "'"
where
-- replace ' with '"'"'
escaped = join "'\"'\"'" $ split "'" f
escaped = intercalate "'\"'\"'" $ split "'" f
-- | Unescapes a set of shellEscaped words or filenames.
shellUnEscape :: String -> [String]