Commit 4f2e093a authored by Steffen Michels's avatar Steffen Michels

fix concatPaths

parent 2195bffd
Pipeline #40752 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