From 2e02228be80ca12d1b03899bd63213741c763703 Mon Sep 17 00:00:00 2001 From: Li-yao Xia Date: Thu, 25 Jan 2024 13:41:36 +0000 Subject: [PATCH] Compatibility with old bytestring < 0.11.1 --- tests/Tests/Properties/Validate.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/tests/Tests/Properties/Validate.hs b/tests/Tests/Properties/Validate.hs index 515e7cac..a56f23c6 100644 --- a/tests/Tests/Properties/Validate.hs +++ b/tests/Tests/Properties/Validate.hs @@ -15,7 +15,11 @@ import Tests.QuickCheckUtils () #if MIN_VERSION_bytestring(0,12,0) import Data.ByteString.Short (unShortByteString) #else +#if MIN_VERSION_bytestring(0,11,1) import Data.ByteString.Short (ShortByteString(SBS)) +#else +import Data.ByteString.Short.Internal (ShortByteString(SBS)) +#endif import Data.Array.Byte (ByteArray(ByteArray)) unShortByteString :: ShortByteString -> ByteArray