fcmtp-data/src/Data/SMTP/CL.hs

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