Commit 64644eef authored by Camil Staps's avatar Camil Staps 🚀

Merge branch 'fixConcatPaths' into 'master'

fix concatPaths

See merge request !315
parents 2195bffd 4f2e093a
Pipeline #40753 passed with stage
in 1 minute and 54 seconds
......@@ -36,10 +36,11 @@ concatPaths :: ![FilePath] -> FilePath
concatPaths paths = concat (addSeparators paths)
where
addSeparators [] = []
addSeparators [p] = [p]
addSeparators [p:ps]
| hasTrailingPathSeparator p
= [p:addSeparators ps]
= [p,pathSeparatorString:ps]
= [p,pathSeparatorString: addSeparators ps]
splitExtension :: !FilePath -> (String, String)
splitExtension path = split sz
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment