1234567891011121314 |
- module Data.SMTP.CL (module Data.SMTP.Types.CL, module Data.SMTP.Reader.CL) where
- import Data.SMTP.Types.CL
- import qualified Data.SMTP.Types.Resource as R
- verifyResource :: ClVerifier -> SomeIO -> IO Bool
- verifyResource v resc = case R.seal resc of
- Nothing -> return False
- Just s -> verifyWithSeal v s resc
-
- -- verifyWithSeal :: ClVerifier -> S.Seal -> SomeIO -> IO Bool
- -- verifyWithSeal v seal resc = do
-
|