GHC 7.8 and earlier compatibility
authorNeil Mitchell <ndmitchell@gmail.com>
Tue, 22 Dec 2015 14:12:13 +0000 (14:12 +0000)
committerNeil Mitchell <ndmitchell@gmail.com>
Tue, 22 Dec 2015 14:12:13 +0000 (14:12 +0000)
System/FilePath/Internal.hs

index 4572ae7..00cdfcd 100644 (file)
@@ -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)