1 files changed, 12 insertions, 4 deletions

diff --git a/lib/KeyRing/Types.hs b/lib/KeyRing/Types.hs
index 6b686d5..22937a7 100644
--- a/lib/KeyRing/Types.hs
+++ b/lib/KeyRing/Types.hs
@@ -1,5 +1,6 @@
-{-# LANGUAGE DeriveAnyClass #-}
-{-# LANGUAGE DeriveFunctor #-}
+{-# LANGUAGE DeriveAnyClass  #-}
+{-# LANGUAGE DeriveFunctor   #-}
+{-# LANGUAGE PatternSynonyms #-}
 module KeyRing.Types where
 
 import           Data.Char (isLower,toLower)
@@ -179,13 +180,20 @@ data Access = AutoAccess -- ^ secret or public as appropriate based on existing
             | Pub        -- ^ public information
  deriving (Eq,Ord,Show)
 
-data FileType = KeyRingFile
+
+data PacketsCodec = DetectAscii | BinaryPackets | AsciiArmor
+ deriving (Eq,Ord,Show)
+
+data FileType = PGPPackets PacketsCodec
               | PEMFile
               | WalletFile
               | DNSPresentation
               | Hosts
               | SshFile
- deriving (Eq,Ord,Enum,Show)
+ deriving (Eq,Ord,Show)
+
+pattern KeyRingFile :: FileType
+pattern KeyRingFile = PGPPackets DetectAscii
 
 -- type UsageTag = String
 data Initializer = NoCreate | Internal GenerateKeyParams | External String | WarnMissing String