Skip to content

Commit f50a63a

Browse files
committed
Use liftA2 qualified to pacify GHC < 9.6
1 parent 0caa736 commit f50a63a

File tree

3 files changed

+8
-3
lines changed

3 files changed

+8
-3
lines changed

CHANGELOG.md

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,10 @@
11
# Revision history for contiguous
22

3+
## 0.6.4.2 -- 2024-02-06
4+
5+
* Restore support for versions of base that do not export `liftA2`
6+
from the prelude.
7+
38
## 0.6.4.1 -- 2024-02-05
49

510
* Update package metadata.

contiguous.cabal

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
cabal-version: 2.4
22
name: contiguous
3-
version: 0.6.4.1
3+
version: 0.6.4.2
44
homepage: https://github.com/byteverse/contiguous
55
bug-reports: https://github.com/byteverse/contiguous/issues
66
author: Andrew Martin

src/Data/Primitive/Contiguous.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1082,7 +1082,7 @@ itraverse f = \arr ->
10821082
then pure (STA unsafeFreeze)
10831083
else case index# arr ix of
10841084
(# x #) ->
1085-
liftA2
1085+
A.liftA2
10861086
( \b (STA m) -> STA $ \marr -> do
10871087
write marr ix b
10881088
m marr
@@ -1330,7 +1330,7 @@ generateM !sz f =
13301330
let go !ix =
13311331
if ix < sz
13321332
then
1333-
liftA2
1333+
A.liftA2
13341334
( \b (STA m) -> STA $ \marr -> do
13351335
write marr ix b
13361336
m marr

0 commit comments

Comments
 (0)