Merge branch 'fixConcatPaths' into 'master'

fix concatPaths

See merge request !315

src/libraries/OS-Independent/System/FilePath.icl

@@ -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