summaryrefslogtreecommitdiff
path: root/Annex/View/ViewedFile.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Annex/View/ViewedFile.hs')
-rw-r--r--Annex/View/ViewedFile.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/Annex/View/ViewedFile.hs b/Annex/View/ViewedFile.hs
index 61be3cffc..5733d4c94 100644
--- a/Annex/View/ViewedFile.hs
+++ b/Annex/View/ViewedFile.hs
@@ -48,6 +48,8 @@ viewedFileFromReference f = concat
escape :: String -> String
escape = replace "%" "\\%" . replace "\\" "\\\\"
+{- For use when operating already within a view, so whatever filepath
+ - is present in the work tree is already a ViewedFile. -}
viewedFileReuse :: MkViewedFile
viewedFileReuse = takeFileName