Add RIPEMD160 hashing function

Author: paluh

cardano-crypto-class/cardano-crypto-class.cabal

@@ -52,6 +52,7 @@ library
     Cardano.Crypto.Hash.Class
     Cardano.Crypto.Hash.Keccak256
     Cardano.Crypto.Hash.NeverUsed
+    Cardano.Crypto.Hash.RIPEMD160
     Cardano.Crypto.Hash.SHA256
     Cardano.Crypto.Hash.SHA3_256
     Cardano.Crypto.Hash.Short

cardano-crypto-class/src/Cardano/Crypto/Hash/RIPEMD160.hs

@@ -0,0 +1,23 @@
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE PackageImports #-}
+{-# LANGUAGE TypeFamilies #-}
+
+-- | Implementation of the RIPEMD-160 hashing algorithm.
+module Cardano.Crypto.Hash.RIPEMD160
+  ( RIPEMD160
+  )
+where
+import Cardano.Crypto.Hash.Class
+import qualified "cryptonite" Crypto.Hash as H
+import qualified Data.ByteArray as BA
+
+data RIPEMD160
+
+instance HashAlgorithm RIPEMD160 where
+  type SizeHash RIPEMD160 = 20
+  hashAlgorithmName _ = "RIPEMD160"
+  digest _ = convert . H.hash
+
+convert :: H.Digest H.RIPEMD160 -> ByteString
+convert = BA.convert
+