diff options
Diffstat (limited to 'Annex/View.hs')
-rw-r--r-- | Annex/View.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Annex/View.hs b/Annex/View.hs index 69d064753..9d1a763e2 100644 --- a/Annex/View.hs +++ b/Annex/View.hs @@ -300,8 +300,7 @@ applyView' mkviewedfile getfilemetadata view = do genviewedfiles = viewedFiles view mkviewedfile -- enables memoization go uh hasher f (Just (k, _)) = do metadata <- getCurrentMetaData k - let dirmetadata = getfilemetadata f - let metadata' = unionMetaData dirmetadata metadata + let metadata' = getfilemetadata f `unionMetaData` metadata forM_ (genviewedfiles f metadata') $ \fv -> do stagesymlink uh hasher fv =<< inRepo (gitAnnexLink fv k) go uh hasher f Nothing |