vicfg: Deleting configurations now resets to the default, where before it has no effect.

Added a Default instance for TrustLevel, and was able to use that to clear
up several other parts of the code too.

This commit was sponsored by Stephan Schulz

2 files changed, 5 insertions, 0 deletions

diff --git a/Types/StandardGroups.hs b/Types/StandardGroups.hs
index 66c1dd5ef..a60445a65 100644
--- a/Types/StandardGroups.hs
+++ b/Types/StandardGroups.hs
@@ -9,6 +9,7 @@ module Types.StandardGroups where
 
 import Types.Remote (RemoteConfig)
 import Types.Group
+import Data.Default
 
 import qualified Data.Map as M
 import Data.Maybe
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