diff options
Diffstat (limited to 'Types/TrustLevel.hs')
-rw-r--r-- | Types/TrustLevel.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Types/TrustLevel.hs b/Types/TrustLevel.hs index a72dbb8c6..4af71294a 100644 --- a/Types/TrustLevel.hs +++ b/Types/TrustLevel.hs @@ -14,6 +14,7 @@ module Types.TrustLevel ( ) where import qualified Data.Map as M +import Data.Default import Types.UUID @@ -22,6 +23,9 @@ import Types.UUID data TrustLevel = Trusted | SemiTrusted | UnTrusted | DeadTrusted deriving (Eq, Enum, Ord, Bounded) +instance Default TrustLevel where + def = SemiTrusted + type TrustMap = M.Map UUID TrustLevel readTrustLevel :: String -> Maybe TrustLevel |