diff options
| -rw-r--r-- | Annex/View/ViewedFile.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Annex/View/ViewedFile.hs b/Annex/View/ViewedFile.hs index ef901f700..827ab09dc 100644 --- a/Annex/View/ViewedFile.hs +++ b/Annex/View/ViewedFile.hs @@ -70,6 +70,7 @@ prop_viewedFile_roundtrips :: FilePath -> Bool prop_viewedFile_roundtrips f -- Relative filenames wanted, not directories. | any (isPathSeparator) (end f ++ beginning f) = True + | isAbsolute f = True | otherwise = dir == dirFromViewedFile (viewedFileFromReference f) where dir = joinPath $ beginning $ splitDirectories f |