1 files changed, 10 insertions, 1 deletions

diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs
index dc6fb78..6140ddf 100644
--- a/Data/OpenPGP.hs
+++ b/Data/OpenPGP.hs
@@ -75,7 +75,8 @@ module Data.OpenPGP (
         decode_public_key_material,
         getEllipticCurvePublicKey,
         encodeOID,
-        hashLen
+        hashLen,
+        defaultFeatures
 ) where
 
 import Control.Applicative
@@ -1326,6 +1327,14 @@ data SignatureSubpacket =
         UnsupportedSignatureSubpacket Word8 B.ByteString
         deriving (Show, Read, Eq)
 
+defaultFeatures :: SignatureSubpacket
+defaultFeatures =
+    FeaturesPacket
+        { supports_mdc  = True
+        , supports_aead = False
+        , supports_v5   = True
+        }
+
 instance BINARY_CLASS SignatureSubpacket where
         put p = do
                 -- Use 5-octet-length + 1 for tag as the first packet body octet