Fix bad bug in ptrToOffset
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sat, 21 Aug 2010 05:00:43 +0000 (05:00 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sat, 21 Aug 2010 05:00:43 +0000 (05:00 +0000)
Data/Vector/Storable/Internal.hs

index 44a13ce..ac2704d 100644 (file)
@@ -30,7 +30,7 @@ distance p q = (p `minusPtr` q) `quotInt` sizeOf (undefined :: a)
 ptrToOffset :: Storable a => ForeignPtr a -> Ptr a -> Int
 {-# INLINE ptrToOffset #-}
 ptrToOffset fp q = unsafeInlineIO
-                 $ withForeignPtr fp $ \p -> return (distance p q)
+                 $ withForeignPtr fp $ \p -> return (distance q p)
 
 offsetToPtr :: Storable a => ForeignPtr a -> Int -> Ptr a
 {-# INLINE offsetToPtr #-}