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

don't test with null paths

Browse source
This commit is contained in:
Joey Hess 2015-04-14 15:15:29 -04:00
parent 277e103880
commit cd31b69ff6
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Utility/Path.hs
View file

@ -159,6 +159,7 @@ relPathDirToFileAbs from to
prop_relPathDirToFile_basics :: FilePath -> FilePath -> Bool prop_relPathDirToFile_basics :: FilePath -> FilePath -> Bool
prop_relPathDirToFile_basics from to prop_relPathDirToFile_basics from to
| null from || null to = True
| from == to = null r | from == to = null r
| otherwise = not (null r) | otherwise = not (null r)
where where