From 30e539c5283d9339775c3c7ae6bb3cad943dfaee Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 6 Jun 2015 21:13:55 -0400 Subject: avoid using isLeft/isRight which are not available with older ghc versions --- Test.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Test.hs b/Test.hs index 8fe830cf9..20380ec5a 100644 --- a/Test.hs +++ b/Test.hs @@ -18,7 +18,6 @@ import Test.Tasty.Ingredients.Rerun import Options.Applicative hiding (command) import qualified Data.Map as M import qualified Text.JSON -import Data.Either import Common @@ -1593,12 +1592,12 @@ checkregularfile f = do checkdoesnotexist :: FilePath -> Assertion checkdoesnotexist f = - (isLeft <$> Utility.Exception.tryIO (getSymbolicLinkStatus f)) + (either (const True) (const False) <$> Utility.Exception.tryIO (getSymbolicLinkStatus f)) @? f ++ " exists unexpectedly" checkexists :: FilePath -> Assertion checkexists f = - (isRight <$> Utility.Exception.tryIO (getSymbolicLinkStatus f)) + (either (const False) (const True) <$> Utility.Exception.tryIO (getSymbolicLinkStatus f)) @? f ++ " does not exist" checkcontent :: FilePath -> Assertion -- cgit v1.2.3