diff options
Diffstat (limited to 'Fields.hs')
| -rw-r--r-- | Fields.hs | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/Fields.hs b/Fields.hs deleted file mode 100644 index ffd273be6..000000000 --- a/Fields.hs +++ /dev/null @@ -1,35 +0,0 @@ -{- git-annex fields - - - - Copyright 2012 Joey Hess <joey@kitenet.net> - - - - Licensed under the GNU GPL version 3 or higher. - -} - -module Fields where - -import Common.Annex -import qualified Annex - -import Data.Char - -{- A field, stored in Annex state, with a value sanity checker. -} -data Field = Field - { fieldName :: String - , fieldCheck :: String -> Bool - } - -getField :: Field -> Annex (Maybe String) -getField = Annex.getField . fieldName - -remoteUUID :: Field -remoteUUID = Field "remoteuuid" $ - -- does it look like a UUID? - all (\c -> isAlphaNum c || c == '-') - -associatedFile :: Field -associatedFile = Field "associatedfile" $ \f -> - -- is the file a safe relative filename? - not (isAbsolute f) && not ("../" `isPrefixOf` f) - -direct :: Field -direct = Field "direct" $ \f -> f == "1" |