From e66074af1cd3cee5995bde261c15b7db26288a38 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Tue, 24 May 2016 03:29:40 +0200
Subject: [PATCH] Fix stripSuffix' for bytestring < 0.10.8

---
 src/System/Posix/FilePath.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/System/Posix/FilePath.hs b/src/System/Posix/FilePath.hs
index 521b468..6df9a05 100644
--- a/src/System/Posix/FilePath.hs
+++ b/src/System/Posix/FilePath.hs
@@ -330,7 +330,7 @@ stripExtension bs path
 #if MIN_VERSION_bytestring(0,10,8)
     stripSuffix' = BS.stripSuffix
 #else
-    stripSuffix' xs ys = fmap (BS.pack . reverse) $ stripPrefix (reverse $ BS.unpack xs) (reverse $ BS.unpack ys)
+    stripSuffix' xs ys = fmap (BS.pack . reverse) $ L.stripPrefix (reverse $ BS.unpack xs) (reverse $ BS.unpack ys)
 #endif