tweak field name

Remote/Bup.hs

@@ -60,7 +60,7 @@ gen r u c = do
 			, whereisKey = Nothing
 			, config = c
 			, repo = r
-			, path = if bupLocal buprepo && not (null buprepo)
+			, localpath = if bupLocal buprepo && not (null buprepo)
 				then Just buprepo
 				else Nothing
 			, remotetype = remote

Remote/Directory.hs

@@ -53,7 +53,7 @@ gen r u c = do
 			whereisKey = Nothing,
 			config = Nothing,
 			repo = r,
-			path = Just dir,
+			localpath = Just dir,
 			remotetype = remote
 		}
 	where

Remote/Git.hs

@@ -94,7 +94,7 @@ gen r u _ = new <$> remoteCost r defcst
 			, hasKeyCheap = repoCheap r
 			, whereisKey = Nothing
 			, config = Nothing
-			, path = if Git.repoIsLocal r || Git.repoIsLocalUnknown r
+			, localpath = if Git.repoIsLocal r || Git.repoIsLocalUnknown r
 				then Just $ Git.repoPath r
 				else Nothing
 			, repo = r

Remote/Hook.hs

@@ -48,7 +48,7 @@ gen r u c = do
 			hasKeyCheap = False,
 			whereisKey = Nothing,
 			config = Nothing,
-			path = Nothing,
+			localpath = Nothing,
 			repo = r,
 			remotetype = remote
 		}

Remote/Rsync.hs

@@ -58,7 +58,7 @@ gen r u c = do
 			, whereisKey = Nothing
 			, config = Nothing
 			, repo = r
-			, path = if rsyncUrlIsPath $ rsyncUrl o
+			, localpath = if rsyncUrlIsPath $ rsyncUrl o
 				then Just $ rsyncUrl o
 				else Nothing
 			, remotetype = remote

Remote/S3.hs

@@ -60,7 +60,7 @@ gen' r u c cst =
 			whereisKey = Nothing,
 			config = c,
 			repo = r,
-			path = Nothing,
+			localpath = Nothing,
 			remotetype = remote
 		}
 

Remote/Web.hs

@@ -47,7 +47,7 @@ gen r _ _ =
 		hasKeyCheap = False,
 		whereisKey = Just getUrls,
 		config = Nothing,
-		path = Nothing,
+		localpath = Nothing,
 		repo = r,
 		remotetype = remote
 	}