#include #include module Bindings.APR.SHA1 where #strict_import import Bindings.APR #num APR_SHA1_DIGESTSIZE #globalarray APR_SHA1_ID, CChar #num APR_SHA1PW_IDLEN #starttype struct apr_sha1_ctx_t # array_field digest , # field count_lo, # field count_hi, # array_field data , # field local , CInt #stoptype #ccall apr_sha1_base64 , Ptr CChar -> CInt -> Ptr CChar -> IO () #ccall apr_sha1_init , Ptr -> IO () #ccall apr_sha1_update , Ptr -> Ptr CChar -> CUInt -> IO () #ccall apr_sha1_update_binary, Ptr -> Ptr CUInt -> CUInt -> IO () #ccall apr_sha1_final , Ptr CUChar -> Ptr -> IO ()