Remove use of coerce

well-typed · Apr 3, 2024 · 30b8721 · 30b8721
1 parent eafa8d9
commit 30b8721
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/System/IO/BlockIO.hs b/System/IO/BlockIO.hs
@@ -20,7 +20,6 @@ module System.IO.BlockIO (
   ) where
 
 import Data.Bits
-import Data.Coerce
 import Data.Primitive.ByteArray
 import qualified Data.Vector as V
 import qualified Data.Vector.Mutable as VM
@@ -217,7 +216,7 @@ submitIO IOCtx {
                                   cnt ioopid
         URing.submitIO uring
 --      print ("submitIO", "submitting done")
-    coerce <$> takeMVar iobatchCompletion
+    takeMVar iobatchCompletion
   where
     closed = mkIOError ResourceVanished "IOCtx closed" Nothing Nothing
     guardPinned mba = do