Avoid using pinned memory for Hash deserialization

During deserialization we create a temporary buffer, whcih is later
converted to `PackedBytes` representation. There is no need fort hat
intermediarey buffer to be backed by pinned memory (i.e. `ByteString`)
This commit switches to using unpinned `ShortByteString` in order to
reduce fragmentation of pinned memory due to deserialization of
milllions of hashes on a running node

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

@@ -67,6 +67,7 @@ import qualified Data.ByteString as BS
 import qualified Data.ByteString.Base16 as Base16
 import qualified Data.ByteString.Char8 as BSC
 import Data.ByteString.Short (ShortByteString)
+import qualified Data.ByteString.Short as SBS
 import Data.MemPack (StateT(StateT), FailT(FailT), MemPack, Unpack(Unpack))
 import Data.Word (Word8)
 import Numeric.Natural (Natural)
@@ -86,8 +87,7 @@ import Control.DeepSeq (NFData)
 
 import NoThunks.Class (NoThunks)
 
-import Cardano.Binary (Encoding, FromCBOR(..), Size, ToCBOR(..), decodeBytes,
-                       serialize')
+import Cardano.Binary (Encoding, FromCBOR(..), Size, ToCBOR(..), serialize')
 import Cardano.Crypto.PackedBytes
 import Cardano.Crypto.Util (decodeHexString)
 import Cardano.HeapWords (HeapWords (..))
@@ -357,14 +357,14 @@ instance (HashAlgorithm h, Typeable a) => ToCBOR (Hash h a) where
 
 instance (HashAlgorithm h, Typeable a) => FromCBOR (Hash h a) where
   fromCBOR = do
-    bs <- decodeBytes
-    case hashFromBytes bs of
+    sbs <- fromCBOR
+    case hashFromBytesShort sbs of
       Just x  -> return x
       Nothing -> fail $ "hash bytes wrong size, expected " ++ show expected
                      ++ " but got " ++ show actual
         where
           expected = sizeHash (Proxy :: Proxy h)
-          actual   = BS.length bs
+          actual   = SBS.length sbs
 
 --
 -- Deprecated