summaryrefslogtreecommitdiff
path: root/Fields.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-08-23 15:22:23 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-08-23 15:24:15 -0400
commit715a9a2f8e788ffe0bc92bc02919a1825bda49a7 (patch)
tree259e5e683f7d7db3f6bba0192638fe77eeb36d05 /Fields.hs
parent487bdf0e24d34135da2e53bbcd2c97d892ed817a (diff)
keep logs of failed transfers, and requeue them when doing a non-full scan
of a remote
Diffstat (limited to 'Fields.hs')
-rw-r--r--Fields.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Fields.hs b/Fields.hs
index 38427ad05..145a8adca 100644
--- a/Fields.hs
+++ b/Fields.hs
@@ -18,6 +18,9 @@ data Field = Field
, fieldCheck :: String -> Bool
}
+getField :: Field -> Annex (Maybe String)
+getField = Annex.getField . fieldName
+
remoteUUID :: Field
remoteUUID = Field "remoteuuid" $
-- does it look like a UUID?
@@ -27,6 +30,3 @@ associatedFile :: Field
associatedFile = Field "associatedfile" $ \f ->
-- is the file a safe relative filename?
not (isAbsolute f) && not ("../" `isPrefixOf` f)
-
-getField :: Field -> Annex (Maybe String)
-getField = Annex.getField . fieldName