Skip to content

Commit 114496c

Browse files
committed
Fix tests with GHC 9.8.x
1 parent 9ab7c65 commit 114496c

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

tests/bytestring-tests/Properties/Common.hs

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -632,9 +632,11 @@ splitWith f ys = go [] ys
632632
| f x = reverse acc : go [] xs
633633
| otherwise = go (x : acc) xs
634634

635+
#if !MIN_VERSION_base(4, 19, 0)
635636
unsnoc :: [a] -> Maybe ([a], a)
636637
unsnoc [] = Nothing
637638
unsnoc xs = Just (init xs, last xs)
639+
#endif
638640

639641
-- | Total conversion to char.
640642
word8ToChar :: Word8 -> Char

0 commit comments

Comments
 (0)