add a path field to remotes

Also broke out some helper functions around constructing remotes,
to be used later.

1 files changed, 6 insertions, 0 deletions

diff --git a/Utility/RsyncFile.hs b/Utility/RsyncFile.hs
index 075e91d23..5a9a256a9 100644
--- a/Utility/RsyncFile.hs
+++ b/Utility/RsyncFile.hs
@@ -61,3 +61,9 @@ rsyncUrlIsShell s
 			| c == '/' = False -- got to directory with no colon
 			| c == ':' = not $ ":" `isPrefixOf` cs
 			| otherwise = go cs
+
+{- Checks if a rsync url is really just a local path. -}
+rsyncUrlIsPath :: String -> Bool
+rsyncUrlIsPath s
+	| rsyncUrlIsShell s = False
+	| otherwise = ':' `notElem` s