Skip to content

Commit

Permalink
Fix build on GHC8.0
Browse files Browse the repository at this point in the history
It seems cabal decided on plan with deepseq<1.4.3
  • Loading branch information
Shimuuar committed Mar 24, 2024
1 parent fe1ddef commit 8f60f2a
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions vector/src/Data/Vector/Strict.hs
Original file line number Diff line number Diff line change
Expand Up @@ -2474,7 +2474,7 @@ toLazy (Vector v) = v
-- | /O(n)/ Convert lazy array to strict array. This function reduces
-- each element of vector to WHNF.
fromLazy :: V.Vector a -> Vector a
fromLazy vec = liftRnf (`seq` ()) v `seq` v where v = Vector vec
fromLazy vec = liftRnfV (`seq` ()) v `seq` v where v = Vector vec

-- | /O(1)/ Convert lazy array to strict array. This function does not
-- evaluate vector elements.
Expand All @@ -2490,7 +2490,7 @@ lazyFromLazy = Vector
-- @since 0.13.2.0
fromArray :: Array a -> Vector a
{-# INLINE fromArray #-}
fromArray arr = liftRnf (`seq` ()) vec `seq` vec
fromArray arr = liftRnfV (`seq` ()) vec `seq` vec
where
vec = lazyFromArray arr

Expand Down

0 comments on commit 8f60f2a

Please sign in to comment.