git.iko.soy/streamly
on master help sign in
Make the implementation of isPinned more safer
6780145Adithya Kumar
core/src/Streamly/Internal/Data/Unbox.hs+1−2
compare with master
unifiedsplit
@@ -153,8 +153,7 @@ newBytes Pinned = pinnedNewBytes
153isPinned :: MutableByteArray -> Bool
153isPinned :: MutableByteArray -> Bool
154isPinned (MutableByteArray arr#) =
154isPinned (MutableByteArray arr#) =
155 let pinnedInt = I# (isMutableByteArrayPinned# arr#)
155 let pinnedInt = I# (isMutableByteArrayPinned# arr#)
156− -- XXX /= 0 would be safer
157− in pinnedInt == 1
156+ in pinnedInt /= 0
158
157
159
158
160{-# INLINE cloneMutableArrayWith# #-}
159{-# INLINE cloneMutableArrayWith# #-}