2011-06-02 01:56:04 +00:00
|
|
|
{- git-annex remotes types
|
2011-03-27 21:12:32 +00:00
|
|
|
-
|
|
|
|
- Most things should not need this, using Remote instead
|
2011-03-27 19:56:43 +00:00
|
|
|
-
|
|
|
|
- Copyright 2011 Joey Hess <joey@kitenet.net>
|
|
|
|
-
|
|
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
|
|
-}
|
|
|
|
|
2011-06-02 01:56:04 +00:00
|
|
|
module Types.Remote where
|
2011-03-27 19:56:43 +00:00
|
|
|
|
|
|
|
import Control.Exception
|
2011-03-29 03:51:07 +00:00
|
|
|
import Data.Map as M
|
2011-07-15 07:12:05 +00:00
|
|
|
import Data.Ord
|
2011-03-27 19:56:43 +00:00
|
|
|
|
2011-06-30 17:16:57 +00:00
|
|
|
import qualified Git
|
2011-06-02 01:56:04 +00:00
|
|
|
import Types.Key
|
2011-03-27 19:56:43 +00:00
|
|
|
|
2011-04-15 19:09:36 +00:00
|
|
|
type RemoteConfig = M.Map String String
|
|
|
|
|
2011-03-29 03:51:07 +00:00
|
|
|
{- There are different types of remotes. -}
|
|
|
|
data RemoteType a = RemoteType {
|
|
|
|
-- human visible type name
|
|
|
|
typename :: String,
|
2011-03-29 21:57:20 +00:00
|
|
|
-- enumerates remotes of this type
|
|
|
|
enumerate :: a [Git.Repo],
|
|
|
|
-- generates a remote of this type
|
2011-04-15 19:09:36 +00:00
|
|
|
generate :: Git.Repo -> String -> Maybe RemoteConfig -> a (Remote a),
|
2011-03-29 18:55:59 +00:00
|
|
|
-- initializes or changes a remote
|
2011-04-15 19:09:36 +00:00
|
|
|
setup :: String -> RemoteConfig -> a RemoteConfig
|
2011-03-29 03:51:07 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
{- An individual remote. -}
|
2011-03-27 20:17:56 +00:00
|
|
|
data Remote a = Remote {
|
2011-03-27 19:56:43 +00:00
|
|
|
-- each Remote has a unique uuid
|
2011-03-27 20:17:56 +00:00
|
|
|
uuid :: String,
|
2011-03-27 19:56:43 +00:00
|
|
|
-- each Remote has a human visible name
|
|
|
|
name :: String,
|
|
|
|
-- Remotes have a use cost; higher is more expensive
|
2011-03-30 19:15:46 +00:00
|
|
|
cost :: Int,
|
2011-03-27 19:56:43 +00:00
|
|
|
-- Transfers a key to the remote.
|
2011-03-27 20:17:56 +00:00
|
|
|
storeKey :: Key -> a Bool,
|
2011-03-27 19:56:43 +00:00
|
|
|
-- retrieves a key's contents to a file
|
2011-03-27 20:17:56 +00:00
|
|
|
retrieveKeyFile :: Key -> FilePath -> a Bool,
|
2011-03-27 19:56:43 +00:00
|
|
|
-- removes a key's contents
|
2011-03-27 20:17:56 +00:00
|
|
|
removeKey :: Key -> a Bool,
|
2011-03-27 19:56:43 +00:00
|
|
|
-- Checks if a key is present in the remote; if the remote
|
|
|
|
-- cannot be accessed returns a Left error.
|
2011-03-27 20:17:56 +00:00
|
|
|
hasKey :: Key -> a (Either IOException Bool),
|
2011-03-27 19:56:43 +00:00
|
|
|
-- Some remotes can check hasKey without an expensive network
|
|
|
|
-- operation.
|
2011-03-29 03:51:07 +00:00
|
|
|
hasKeyCheap :: Bool,
|
2011-03-29 17:49:54 +00:00
|
|
|
-- a Remote can have a persistent configuration store
|
2011-04-15 19:09:36 +00:00
|
|
|
config :: Maybe RemoteConfig
|
2011-03-27 19:56:43 +00:00
|
|
|
}
|
|
|
|
|
2011-03-27 20:17:56 +00:00
|
|
|
instance Show (Remote a) where
|
2011-03-30 19:15:46 +00:00
|
|
|
show remote = "Remote { name =\"" ++ name remote ++ "\" }"
|
2011-03-27 19:56:43 +00:00
|
|
|
|
|
|
|
-- two remotes are the same if they have the same uuid
|
2011-03-27 20:17:56 +00:00
|
|
|
instance Eq (Remote a) where
|
|
|
|
x == y = uuid x == uuid y
|
2011-03-27 19:56:43 +00:00
|
|
|
|
|
|
|
-- order remotes by cost
|
2011-03-27 20:17:56 +00:00
|
|
|
instance Ord (Remote a) where
|
2011-07-15 07:12:05 +00:00
|
|
|
compare = comparing cost
|