git-annex/Types/TrustLevel.hs

{- git-annex trust levels
 -
 - Copyright 2010 Joey Hess <joey@kitenet.net>
 -
 - Licensed under the GNU GPL version 3 or higher.
 -}

module Types.TrustLevel (
	TrustLevel(..),
	TrustMap
) where

import qualified Data.Map as M

import Types.UUID

data TrustLevel = Trusted | SemiTrusted | UnTrusted | DeadTrusted
	deriving Eq

type TrustMap = M.Map UUID TrustLevel
Add --trust, --untrust, and --semitrust options. 2011-06-01 21:49:37 +00:00			`{- git-annex trust levels`
			`-`
			`- Copyright 2010 Joey Hess <joey@kitenet.net>`
			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`

cache the trustmap Doubles the speed of fsck, and speeds up drop as well. 2011-06-24 01:25:39 +00:00			`module Types.TrustLevel (`
Add --trust, --untrust, and --semitrust options. 2011-06-01 21:49:37 +00:00			`TrustLevel(..),`
cache the trustmap Doubles the speed of fsck, and speeds up drop as well. 2011-06-24 01:25:39 +00:00			`TrustMap`
Add --trust, --untrust, and --semitrust options. 2011-06-01 21:49:37 +00:00			`) where`

cache the trustmap Doubles the speed of fsck, and speeds up drop as well. 2011-06-24 01:25:39 +00:00			`import qualified Data.Map as M`

			`import Types.UUID`

dead: A command which says that a repository is gone for good and you don't want git-annex to mention it again. 2011-12-02 20:59:55 +00:00			`data TrustLevel = Trusted \| SemiTrusted \| UnTrusted \| DeadTrusted`
Add --trust, --untrust, and --semitrust options. 2011-06-01 21:49:37 +00:00			`deriving Eq`

cache the trustmap Doubles the speed of fsck, and speeds up drop as well. 2011-06-24 01:25:39 +00:00			`type TrustMap = M.Map UUID TrustLevel`