Ugly Show instances, for debugging.

1 files changed, 3 insertions, 3 deletions

diff --git a/KeyRing.hs b/KeyRing.hs
index ae602a5..2571c55 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -2792,14 +2792,14 @@ type OriginMap = Map.Map FilePath OriginFlags
 data MappedPacket = MappedPacket
         { packet :: Packet
         , locations :: OriginMap
-        }
+        } deriving Show
 
 type TrustMap = Map.Map FilePath Packet
 type SigAndTrust = ( MappedPacket
                    , TrustMap     ) -- trust packets
 
 type KeyKey = [ByteString]
-data SubKey = SubKey MappedPacket [SigAndTrust]
+data SubKey = SubKey MappedPacket [SigAndTrust] deriving Show
 
 -- | This is a GPG Identity which includes a master key and all its UIDs and
 -- subkeys and associated signatures.
@@ -2807,7 +2807,7 @@ data KeyData = KeyData { keyMappedPacket :: MappedPacket    -- main key
                        , keySigAndTrusts :: [SigAndTrust]  -- sigs on main key
                        , keyUids :: (Map.Map String ([SigAndTrust],OriginMap))  -- uids
                        , keySubKeys :: (Map.Map KeyKey SubKey)    -- subkeys
-                       }
+                       } deriving Show
 
 type KeyDB = Map.Map KeyKey KeyData