diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-05-11 15:13:02 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-05-12 10:06:46 +0200 |
| commit | 09938f29cd615a3073f49f8b628650693e2f29e9 (patch) | |
| tree | 2ad7e2e0fa28699113dc5048d35d1b199b1db45d /iserv | |
| parent | 410906b241f1ee5b338957acfc367f54e6d34fb1 (diff) | |
| download | haskell-09938f29cd615a3073f49f8b628650693e2f29e9.tar.gz | |
Typos [ci skip]
Diffstat (limited to 'iserv')
| -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 |