diff options
Diffstat (limited to 'Annex/View/ViewedFile.hs')
| -rw-r--r-- | Annex/View/ViewedFile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/View/ViewedFile.hs b/Annex/View/ViewedFile.hs index 25ac16a34..ef901f700 100644 --- a/Annex/View/ViewedFile.hs +++ b/Annex/View/ViewedFile.hs @@ -58,7 +58,7 @@ viewedFileReuse = takeFileName dirFromViewedFile :: ViewedFile -> FilePath dirFromViewedFile = joinPath . drop 1 . sep [] "" where - sep l _ [] = reverse l + sep l _ [] = reverse l sep l curr (c:cs) | c == '%' = sep (reverse curr:l) "" cs | c == '\\' = case cs of |