{-# LANGUAGE ForeignFunctionInterface #-} #include #include module Bindings.Nettle.Cipher.AES where #strict_import #num AES_BLOCK_SIZE #num AES_MIN_KEY_SIZE #num AES_MAX_KEY_SIZE #num AES_KEY_SIZE #starttype struct aes_ctx #stoptype #ccall aes_set_encrypt_key , Ptr -> CUInt -> Ptr CUChar -> IO () #ccall aes_set_decrypt_key , Ptr -> CUInt -> Ptr CUChar -> IO () #ccall aes_invert_key , Ptr -> Ptr -> IO () #ccall aes_encrypt , Ptr -> CUInt -> Ptr CUChar -> Ptr CUChar -> IO () #ccall aes_decrypt , Ptr -> CUInt -> Ptr CUChar -> Ptr CUChar -> IO ()