hasufell/hpath
1
1
Fork 0
Code Issues 8 Pull Requests Releases Wiki Activity

Fix stripSuffix' for bytestring < 0.10.8

Browse Source
This commit is contained in:
Julian Ospald 2016-05-24 03:29:40 +02:00
parent 4032629407
commit e66074af1c
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/System/Posix/FilePath.hs
View File

@ -330,7 +330,7 @@ stripExtension bs path
#if MIN_VERSION_bytestring(0,10,8) #if MIN_VERSION_bytestring(0,10,8)
stripSuffix' = BS.stripSuffix stripSuffix' = BS.stripSuffix
#else #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 #endif