git.iko.soy/streamly
on master help sign in
replace unsafeInlineIO with unsafePerformIO
c3ff5d3Harendra Kumar
src/Streamly/Memory/Array/Types.hs+1−1
compare with master
unifiedsplit
@@ -922,7 +922,7 @@ spliceTwo arr1 arr2 = do
922 return arr { aEnd = dst `plusPtr` (len1 + len2) }
922 return arr { aEnd = dst `plusPtr` (len1 + len2) }
923
923
924instance Storable a => Semigroup (Array a) where
924instance Storable a => Semigroup (Array a) where
925− arr1 <> arr2 = unsafeInlineIO $ spliceTwo arr1 arr2
925+ arr1 <> arr2 = unsafePerformIO $ spliceTwo arr1 arr2
926
926
927nullForeignPtr :: ForeignPtr a
927nullForeignPtr :: ForeignPtr a
928nullForeignPtr = ForeignPtr nullAddr# (error "nullForeignPtr")
928nullForeignPtr = ForeignPtr nullAddr# (error "nullForeignPtr")