Work around GHC bug 4310
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Mon, 20 Sep 2010 00:19:03 +0000 (00:19 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Mon, 20 Sep 2010 00:19:03 +0000 (00:19 +0000)
Data/Vector.hs
Data/Vector/Generic/New.hs
Data/Vector/Primitive.hs
Data/Vector/Storable.hs
Data/Vector/Unboxed.hs

index e48ee13..257012a 100644 (file)
@@ -718,7 +718,7 @@ unsafeBackpermute = G.unsafeBackpermute
 -- @
 modify :: (forall s. MVector s a -> ST s ()) -> Vector a -> Vector a
 {-# INLINE modify #-}
-modify = G.modify
+modify p = G.modify p
 
 -- Mapping
 -- -------
index 6a8ef6e..73a7ad0 100644 (file)
@@ -37,7 +37,7 @@ data New v a = New (forall s. ST s (Mutable v s a))
 
 create :: (forall s. ST s (Mutable v s a)) -> New v a
 {-# INLINE create #-}
-create = New
+create p = New p
 
 run :: New v a -> ST s (Mutable v s a)
 {-# INLINE run #-}
index 99e9b86..0ae435d 100644 (file)
@@ -676,7 +676,7 @@ unsafeBackpermute = G.unsafeBackpermute
 -- @
 modify :: Prim a => (forall s. MVector s a -> ST s ()) -> Vector a -> Vector a
 {-# INLINE modify #-}
-modify = G.modify
+modify p = G.modify p
 
 -- Mapping
 -- -------
index 499648f..cf5b9bb 100644 (file)
@@ -685,7 +685,7 @@ unsafeBackpermute = G.unsafeBackpermute
 -- @
 modify :: Storable a => (forall s. MVector s a -> ST s ()) -> Vector a -> Vector a
 {-# INLINE modify #-}
-modify = G.modify
+modify p = G.modify p
 
 -- Mapping
 -- -------
index c3313b1..d44f202 100644 (file)
@@ -698,7 +698,7 @@ unsafeBackpermute = G.unsafeBackpermute
 -- @
 modify :: Unbox a => (forall s. MVector s a -> ST s ()) -> Vector a -> Vector a
 {-# INLINE modify #-}
-modify = G.modify
+modify p = G.modify p
 
 -- Mapping
 -- -------