Fix tests with GHC 9.8.x

haskell · Oct 19, 2023 · 114496c · 114496c
1 parent 9ab7c65
commit 114496c
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/tests/bytestring-tests/Properties/Common.hs b/tests/bytestring-tests/Properties/Common.hs
@@ -632,9 +632,11 @@ splitWith f ys = go [] ys
       | f x       = reverse acc : go [] xs
       | otherwise = go (x : acc) xs
 
+#if !MIN_VERSION_base(4, 19, 0)
 unsnoc :: [a] -> Maybe ([a], a)
 unsnoc [] = Nothing
 unsnoc xs = Just (init xs, last xs)
+#endif
 
 -- | Total conversion to char.
 word8ToChar :: Word8 -> Char