mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid using isLeft/isRight which are not available with older ghc versions

Browse source
This commit is contained in:
Joey Hess 2015-06-06 21:13:55 -04:00
parent 6383d22ffa
commit 67b8e0b321
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Test.hs
View file

@ -18,7 +18,6 @@ import Test.Tasty.Ingredients.Rerun
import Options.Applicative hiding (command) import Options.Applicative hiding (command)
import qualified Data.Map as M import qualified Data.Map as M
import qualified Text.JSON import qualified Text.JSON
import Data.Either
import Common import Common
@ -1593,12 +1592,12 @@ checkregularfile f = do
checkdoesnotexist :: FilePath -> Assertion checkdoesnotexist :: FilePath -> Assertion
checkdoesnotexist f = checkdoesnotexist f =
(isLeft <$> Utility.Exception.tryIO (getSymbolicLinkStatus f)) (either (const True) (const False) <$> Utility.Exception.tryIO (getSymbolicLinkStatus f))
@? f ++ " exists unexpectedly" @? f ++ " exists unexpectedly"
checkexists :: FilePath -> Assertion checkexists :: FilePath -> Assertion
checkexists f = checkexists f =
(isRight <$> Utility.Exception.tryIO (getSymbolicLinkStatus f)) (either (const False) (const True) <$> Utility.Exception.tryIO (getSymbolicLinkStatus f))
@? f ++ " does not exist" @? f ++ " does not exist"
checkcontent :: FilePath -> Assertion checkcontent :: FilePath -> Assertion