hOpenPGP 1.10 → 1.11
raw patch · 2 files changed
+7/−5 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
- Data.Conduit.OpenPGP.Filter: TransitionalUFP :: (Exp (Reader Pkt) Bool) -> FilterPredicates
+ Data.Conduit.OpenPGP.Filter: RPFilterPredicate :: (Reader Pkt Bool) -> FilterPredicates
+ Data.Conduit.OpenPGP.Filter: RTKFilterPredicate :: (Reader TK Bool) -> FilterPredicates
Files
- Data/Conduit/OpenPGP/Filter.hs +5/−3
- hOpenPGP.cabal +2/−2
Data/Conduit/OpenPGP/Filter.hs view
@@ -46,8 +46,9 @@ data FilterPredicates = UnifiedFilterPredicate (Expr UPredicate) -- ^ "old"-style filter predicate, hopefully to be deprecated- | TransitionalTKFP (Exp (Reader TK) Bool) -- ^ a more flexible fp for transferable keys- | TransitionalUFP (Exp (Reader Pkt) Bool) -- ^ a more flexible fp for context-less packets+ | TransitionalTKFP (Exp (Reader TK) Bool) -- ^ a more flexible fp for transferable keys, hopefully to be deprecated+ | RTKFilterPredicate (Reader TK Bool) -- ^ an even more flexible fp for transferable keys+ | RPFilterPredicate (Reader Pkt Bool) -- ^ an even more flexible fp for context-less packets data Expr a = EAny | E a@@ -144,7 +145,7 @@ superPredicate :: FilterPredicates -> Pkt -> Bool superPredicate (UnifiedFilterPredicate ufp) p = eval uEval ufp p-superPredicate (TransitionalUFP e) p = runReader (evalM e) p+superPredicate (RPFilterPredicate e) p = runReader e p superPredicate _ _ = False -- do not match incorrect type of packet conduitTKFilter :: Monad m => FilterPredicates -> Conduit TK m TK@@ -153,6 +154,7 @@ superTKPredicate :: FilterPredicates -> TK -> Bool superTKPredicate (UnifiedFilterPredicate ufp) p = eval uEval ufp (PublicKeyPkt (fst (_tkKey p))) -- FIXME: should operate on more than just the pkp superTKPredicate (TransitionalTKFP e) k = runReader (evalM e) k+superTKPredicate (RTKFilterPredicate e) k = runReader e k pkpEval :: PKPPredicate -> PKPayload -> Bool pkpEval (PKPPredicate lhs o rhs) pkp = uncurry (opreduce o) (vreduce (lhs,pkp),rhs)
hOpenPGP.cabal view
@@ -1,5 +1,5 @@ Name: hOpenPGP-Version: 1.10+Version: 1.11 Synopsis: native Haskell implementation of OpenPGP (RFC4880) Description: native Haskell implementation of OpenPGP (RFC4880) Homepage: http://floss.scru.org/hOpenPGP/@@ -258,4 +258,4 @@ source-repository this type: git location: git://git.debian.org/users/clint/hOpenPGP.git- tag: v1.10+ tag: v1.11