Fixed performance issue with haskell AES