HsOpenSSL-0.1.1: OpenSSL/Utils.hs

module OpenSSL.Utils
    ( failIfNull
    , failIf
    , raiseOpenSSLError
    )
    where

import           Foreign
import           OpenSSL.ERR


failIfNull :: Ptr a -> IO (Ptr a)
failIfNull ptr
    = if ptr == nullPtr then
          raiseOpenSSLError
      else
          return ptr


failIf :: (a -> Bool) -> a -> IO a
failIf f a
    | f a       = raiseOpenSSLError
    | otherwise = return a


raiseOpenSSLError :: IO a
raiseOpenSSLError = getError >>= errorString >>= fail