HsOpenSSL-0.11.7.3: OpenSSL/ERR.hs

{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE CApiFFI                  #-}
module OpenSSL.ERR
    ( getError
    , peekError

    , errorString
    )
    where
import Foreign
import Foreign.C

foreign import capi unsafe "openssl/err.h ERR_get_error"
    getError :: IO CULong

foreign import capi unsafe "openssl/err.h ERR_peek_error"
    peekError :: IO CULong

foreign import capi unsafe "openssl/err.h ERR_error_string"
    _error_string :: CULong -> CString -> IO CString

errorString :: CULong -> IO String
errorString code
    = _error_string code nullPtr >>= peekCString