diff options
Diffstat (limited to 'iserv/src/Remote/Slave.hs')
| -rw-r--r-- | iserv/src/Remote/Slave.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/iserv/src/Remote/Slave.hs b/iserv/src/Remote/Slave.hs index c7210dcb1b..11cc68a13a 100644 --- a/iserv/src/Remote/Slave.hs +++ b/iserv/src/Remote/Slave.hs @@ -30,7 +30,7 @@ dropLeadingPathSeparator :: FilePath -> FilePath dropLeadingPathSeparator p | isAbsolute p = joinPath (drop 1 (splitPath p)) | otherwise = p --- | Path concatication that prevents a double path separator to appear in the +-- | Path concatenation that prevents a double path separator to appear in the -- final path. "/foo/bar/" <//> "/baz/quux" == "/foo/bar/baz/quux" (<//>) :: FilePath -> FilePath -> FilePath lhs <//> rhs = dropTrailingPathSeparator lhs </> dropLeadingPathSeparator rhs |