TOSQUASH

input-output-hk · Apr 23, 2024 · 3b57cd3 · 3b57cd3
1 parent b9fe524
commit 3b57cd3
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/fs-api/bench/Main.hs b/fs-api/bench/Main.hs
@@ -23,10 +23,10 @@ import           Data.List (unfoldr)
 import           Data.Primitive.ByteArray
 import           Data.Word (Word64)
 import           Foreign (withForeignPtr)
+import qualified GHC.Exts as GHC
 import qualified GHC.ForeignPtr as GHC
 import           GHC.Generics (Generic)
 import qualified GHC.IO as GHC
-import qualified GHC.Ptr as GHC
 import           GHC.Stack (HasCallStack)
 import qualified System.Directory as Dir
 import qualified System.FS.API as FS
@@ -104,7 +104,7 @@ unsafeByteArrayToByteString !ba !len =
       let !(GHC.Ptr addr#) = byteArrayContents ba
       (MutableByteArray mba#) <- unsafeThawByteArray ba
       let fp = GHC.ForeignPtr addr# (GHC.PlainPtr mba#)
-      BS.mkDeferredByteString fp len
+      pure $! BS.BS fp len
 
 -- | Copy a 'Prim.ByteArray' at a certain offset and length into a
 -- 'BS.ByteString'.

diff --git a/fs-api/fs-api.cabal b/fs-api/fs-api.cabal
@@ -48,7 +48,7 @@ library
   default-language: Haskell2010
   build-depends:
     , base        >=4.14 && <4.20
-    , bytestring  >=0.10 && <0.13
+    , bytestring  >=0.11 && <0.13
     , containers  >=0.5  && <0.7
     , deepseq
     , digest