diff options
author | Wander Hillen <wjw.hillen@gmail.com> | 2021-07-08 16:49:01 +0200 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2022-10-14 16:55:29 -0400 |
commit | 19195ac068514cfa9d8cce387b0b9bc4081aa95d (patch) | |
tree | f79b156523dcf78a2323027cd4b43a18b39d5005 | |
parent | e42ba325ef1e59699e1d505b0552bfb902c9ce32 (diff) | |
download | haskell-19195ac068514cfa9d8cce387b0b9bc4081aa95d.tar.gz |
Remove unneeded (?) int narrowing bits
-rw-r--r-- | libraries/base/System/Linux/IO/URing/PVar.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/base/System/Linux/IO/URing/PVar.hs b/libraries/base/System/Linux/IO/URing/PVar.hs index e9519e74ab..367748499c 100644 --- a/libraries/base/System/Linux/IO/URing/PVar.hs +++ b/libraries/base/System/Linux/IO/URing/PVar.hs @@ -25,9 +25,9 @@ class Prim a where instance Prim Word32 where sizeOf _ = 4 readPVar (PVar mba) = IO $ \s -> - case readWord32Array# mba 0# s of (# s', r #) -> (# s', W32# (narrowWord32# r) #) + case readWord32Array# mba 0# s of (# s', r #) -> (# s', W32# r #) writePVar (PVar mba) (W32# x) = IO $ \s -> - case writeWord32Array# mba 0# (extendWord32# x) s of s' -> (# s', () #) + case writeWord32Array# mba 0# x s of s' -> (# s', () #) newPVar :: forall a. Prim a => a -> IO (PVar a) newPVar x = do |