summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/KeyRing/Types.hs8
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/KeyRing/Types.hs b/lib/KeyRing/Types.hs
index 22937a7..0797dab 100644
--- a/lib/KeyRing/Types.hs
+++ b/lib/KeyRing/Types.hs
@@ -1,4 +1,3 @@
1{-# LANGUAGE DeriveAnyClass #-}
2{-# LANGUAGE DeriveFunctor #-} 1{-# LANGUAGE DeriveFunctor #-}
3{-# LANGUAGE PatternSynonyms #-} 2{-# LANGUAGE PatternSynonyms #-}
4module KeyRing.Types where 3module KeyRing.Types where
@@ -30,7 +29,12 @@ data KeyRingOperation = KeyRingOperation
30 -- files reside. Otherwise, the evironment variable $GNUPGHOME is consulted 29 -- files reside. Otherwise, the evironment variable $GNUPGHOME is consulted
31 -- and if that is not set, it falls back to $HOME/.gnupg. 30 -- and if that is not set, it falls back to $HOME/.gnupg.
32 } 31 }
33 deriving (Eq,Show,Semigroup,Monoid) 32 deriving (Eq,Show)
33instance Semigroup KeyRingOperation where
34 KeyRingOperation f p t h <> KeyRingOperation f' p' t' h' =
35 KeyRingOperation (f <> f') (p <> p') (t <> t') (h <> h')
36instance Monoid KeyRingOperation where
37 mempty = KeyRingOperation Map.empty [] [] Nothing
34 38
35data InputFile = HomeSec 39data InputFile = HomeSec
36 -- ^ A file named secring.gpg located in the home directory. 40 -- ^ A file named secring.gpg located in the home directory.