mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

test

Browse source
This commit is contained in:
Joey Hess 2012-12-19 23:43:15 -04:00
parent a6bd0076d4
commit df1540787f
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Types/TrustLevel.hs
View file

@ -10,6 +10,7 @@ module Types.TrustLevel (
TrustMap,
readTrustLevel,
showTrustLevel,
prop_read_show_TrustLevel
) where
import qualified Data.Map as M
@ -17,7 +18,7 @@ import qualified Data.Map as M
import Types.UUID
data TrustLevel = Trusted | SemiTrusted | UnTrusted | DeadTrusted
deriving (Eq, Enum, Ord)
deriving (Eq, Enum, Ord, Bounded)
type TrustMap = M.Map UUID TrustLevel
@ -33,3 +34,8 @@ showTrustLevel Trusted = "trusted"
showTrustLevel UnTrusted = "untrusted"
showTrustLevel SemiTrusted = "semitrusted"
showTrustLevel DeadTrusted = "dead"
prop_read_show_TrustLevel :: Bool
prop_read_show_TrustLevel = all check [minBound .. maxBound]
where
check l = readTrustLevel (showTrustLevel l) == Just l