Fix build failure on GHC 8.10

IntersectMBO · Apr 29, 2024 · 3f0d62f · 3f0d62f
1 parent e2d86bb
commit 3f0d62f
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/cardano-crypto-class/src/Cardano/Crypto/KES/CompactSum.hs b/cardano-crypto-class/src/Cardano/Crypto/KES/CompactSum.hs
@@ -514,5 +514,5 @@ instance (HashAlgorithm h)
     fptr <- mallocForeignPtrBytes len
     withForeignPtr fptr $ \ptr -> do
       pull (castPtr ptr) len
-    let bs = BS.fromForeignPtr0 fptr len
+    let bs = BS.fromForeignPtr fptr 0 len
     maybe (error "Invalid hash") return $! VerKeyCompactSumKES <$!> hashFromBytes bs
diff --git a/cardano-crypto-class/src/Cardano/Crypto/KES/Mock.hs b/cardano-crypto-class/src/Cardano/Crypto/KES/Mock.hs
@@ -215,7 +215,7 @@ instance (KnownNat t) => DirectDeserialise (SignKeyKES (MockKES t)) where
     fptr <- mallocForeignPtrBytes len
     withForeignPtr fptr $ \ptr ->
         pull (castPtr ptr) (fromIntegral len)
-    let bs = BS.fromForeignPtr0 fptr len
+    let bs = BS.fromForeignPtr fptr 0 len
     maybe (error "directDeserialise @(SignKeyKES (MockKES t))") return $
         rawDeserialiseSignKeyMockKES bs
 
@@ -230,6 +230,6 @@ instance (KnownNat t) => DirectDeserialise (VerKeyKES (MockKES t)) where
     fptr <- mallocForeignPtrBytes len
     withForeignPtr fptr $ \ptr ->
         pull (castPtr ptr) (fromIntegral len)
-    let bs = BS.fromForeignPtr0 fptr len
+    let bs = BS.fromForeignPtr fptr 0 len
     maybe (error "directDeserialise @(VerKeyKES (MockKES t))") return $
         rawDeserialiseVerKeyKES bs
diff --git a/cardano-crypto-class/src/Cardano/Crypto/KES/Sum.hs b/cardano-crypto-class/src/Cardano/Crypto/KES/Sum.hs
@@ -434,5 +434,5 @@ instance (HashAlgorithm h)
     fptr <- mallocForeignPtrBytes len
     withForeignPtr fptr $ \ptr -> do
       pull (castPtr ptr) len
-    let bs = BS.fromForeignPtr0 fptr len
+    let bs = BS.fromForeignPtr fptr 0 len
     maybe (error "Invalid hash") return $! VerKeySumKES <$!> hashFromBytes bs