Require bytestring <= 0.11

hspec · Aug 31, 2023 · d884776 · d884776
1 parent a8db594
commit d884776
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 15 deletions.
diff --git a/package.yaml b/package.yaml
@@ -35,7 +35,7 @@ dependencies:
   - ansi-terminal
   - directory
   - http-client >= 0.5.0
-  - bytestring
+  - bytestring >= 0.11
   - filepath
   - unix
   - async

diff --git a/sensei.cabal b/sensei.cabal
diff --git a/src/ReadHandle.hs b/src/ReadHandle.hs
@@ -16,16 +16,7 @@ import qualified Data.ByteString.Char8 as B
 import           Data.IORef
 import           System.IO hiding (stdin, stdout, stderr, isEOF)
 
-#if MIN_VERSION_bytestring(0,11,0)
 import           Data.ByteString (dropEnd)
-#else
-import qualified Data.ByteString.Internal as B
-dropEnd :: Int -> ByteString -> ByteString
-dropEnd n ps@(B.PS x offset len)
-    | n <= 0    = ps
-    | n >= len  = B.empty
-    | otherwise = B.PS x offset (len - n)
-#endif
 
 -- | Truly random marker, used to separate expressions.
 --