Eta-expand create to work around GHC bug 4120
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Tue, 15 Jun 2010 03:03:08 +0000 (03:03 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Tue, 15 Jun 2010 03:03:08 +0000 (03:03 +0000)
Data/Vector.hs
Data/Vector/Primitive.hs
Data/Vector/Storable.hs
Data/Vector/Unboxed.hs

index 26065ea..6899884 100644 (file)
@@ -536,7 +536,8 @@ replicateM = G.replicateM
 -- @
 create :: (forall s. ST s (MVector s a)) -> Vector a
 {-# INLINE create #-}
 -- @
 create :: (forall s. ST s (MVector s a)) -> Vector a
 {-# INLINE create #-}
-create = G.create
+-- NOTE: eta-expanded due to http://hackage.haskell.org/trac/ghc/ticket/4120
+create p = G.create p
 
 
 
 
 
 
index 164d075..f642b59 100644 (file)
@@ -537,7 +537,8 @@ replicateM = G.replicateM
 -- @
 create :: Prim a => (forall s. ST s (MVector s a)) -> Vector a
 {-# INLINE create #-}
 -- @
 create :: Prim a => (forall s. ST s (MVector s a)) -> Vector a
 {-# INLINE create #-}
-create = G.create
+-- NOTE: eta-expanded due to http://hackage.haskell.org/trac/ghc/ticket/4120
+create p = G.create p
 
 -- Restricting memory usage
 -- ------------------------
 
 -- Restricting memory usage
 -- ------------------------
index cf7aab4..9554cb5 100644 (file)
@@ -546,7 +546,8 @@ replicateM = G.replicateM
 -- @
 create :: Storable a => (forall s. ST s (MVector s a)) -> Vector a
 {-# INLINE create #-}
 -- @
 create :: Storable a => (forall s. ST s (MVector s a)) -> Vector a
 {-# INLINE create #-}
-create = G.create
+-- NOTE: eta-expanded due to http://hackage.haskell.org/trac/ghc/ticket/4120
+create p = G.create p
 
 -- Restricting memory usage
 -- ------------------------
 
 -- Restricting memory usage
 -- ------------------------
index d44d0f0..d147e04 100644 (file)
@@ -512,7 +512,8 @@ replicateM = G.replicateM
 -- @
 create :: Unbox a => (forall s. ST s (MVector s a)) -> Vector a
 {-# INLINE create #-}
 -- @
 create :: Unbox a => (forall s. ST s (MVector s a)) -> Vector a
 {-# INLINE create #-}
-create = G.create
+-- NOTE: eta-expanded due to http://hackage.haskell.org/trac/ghc/ticket/4120
+create p = G.create p
 
 -- Restricting memory usage
 -- ------------------------
 
 -- Restricting memory usage
 -- ------------------------