fixup! minor refactor

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 @@
-{-# LANGUAGE DeriveAnyClass  #-}
 {-# LANGUAGE DeriveFunctor   #-}
 {-# LANGUAGE PatternSynonyms #-}
 module KeyRing.Types where
@@ -30,7 +29,12 @@ data KeyRingOperation = KeyRingOperation
     -- files reside.  Otherwise, the evironment variable $GNUPGHOME is consulted
     -- and if that is not set, it falls back to $HOME/.gnupg.
     }
-  deriving (Eq,Show,Semigroup,Monoid)
+  deriving (Eq,Show)
+instance Semigroup KeyRingOperation where
+  KeyRingOperation f p t h <> KeyRingOperation f' p' t' h' =
+    KeyRingOperation (f <> f') (p <> p') (t <> t') (h <> h')
+instance Monoid KeyRingOperation where
+  mempty = KeyRingOperation Map.empty [] [] Nothing
 
 data InputFile = HomeSec
                -- ^ A file named secring.gpg located in the home directory.