[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