[commit: packages/filepath] master: GHC 7.8 and earlier compatibility (afd45d0)
git at git.haskell.org
git at git.haskell.org
Mon Dec 28 20:40:24 UTC 2015
Repository : ssh://git@git.haskell.org/filepath
On branch : master
Link : http://git.haskell.org/packages/filepath.git/commitdiff/afd45d015d431dc68e89b406cebc3fe32f337fb7
>---------------------------------------------------------------
commit afd45d015d431dc68e89b406cebc3fe32f337fb7
Author: Neil Mitchell <ndmitchell at gmail.com>
Date: Tue Dec 22 14:12:13 2015 +0000
GHC 7.8 and earlier compatibility
>---------------------------------------------------------------
afd45d015d431dc68e89b406cebc3fe32f337fb7
System/FilePath/Internal.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/System/FilePath/Internal.hs b/System/FilePath/Internal.hs
index 4572ae7..00cdfcd 100644
--- a/System/FilePath/Internal.hs
+++ b/System/FilePath/Internal.hs
@@ -1027,4 +1027,4 @@ breakEnd p = spanEnd (not . p)
-- Nothing if the list did not end with the suffix given, or Just the list
-- before the suffix, if it does.
stripSuffix :: Eq a => [a] -> [a] -> Maybe [a]
-stripSuffix xs ys = reverse <$> stripPrefix (reverse xs) (reverse ys)
+stripSuffix xs ys = fmap reverse $ stripPrefix (reverse xs) (reverse ys)
More information about the ghc-commits
mailing list