Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: d20cd192cc
Fetching contributors…

Cannot retrieve contributors at this time

41 lines (35 sloc) 0.996 kb
{- git-annex "WORM" backend -- Write Once, Read Many
-
- Copyright 2010 Joey Hess <joey@kitenet.net>
-
- Licensed under the GNU GPL version 3 or higher.
-}
module Backend.WORM (backends) where
import Common.Annex
import Types.Backend
import Types.Key
import Types.KeySource
backends :: [Backend]
backends = [backend]
backend :: Backend
backend = Backend
{ name = "WORM"
, getKey = keyValue
, fsckKey = Nothing
}
{- The key includes the file size, modification time, and the
- basename of the filename.
-
- That allows multiple files with the same names to have different keys,
- while also allowing a file to be moved around while retaining the
- same key.
-}
keyValue :: KeySource -> Annex (Maybe Key)
keyValue source = do
stat <- liftIO $ getFileStatus $ contentLocation source
return $ Just Key {
keyName = takeFileName $ keyFilename source,
keyBackendName = name backend,
keySize = Just $ fromIntegral $ fileSize stat,
keyMtime = Just $ modificationTime stat
}
Jump to Line
Something went wrong with that request. Please try again.