diff options
Diffstat (limited to 'Annex/View.hs')
| -rw-r--r-- | Annex/View.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/View.hs b/Annex/View.hs index 7c187befd..5cf21cdfe 100644 --- a/Annex/View.hs +++ b/Annex/View.hs @@ -348,7 +348,7 @@ applyView' mkviewedfile getfilemetadata view = do void clean where genviewedfiles = viewedFiles view mkviewedfile -- enables memoization - go uh hasher f (Just (k, _)) = do + go uh hasher f (Just k) = do metadata <- getCurrentMetaData k let metadata' = getfilemetadata f `unionMetaData` metadata forM_ (genviewedfiles f metadata') $ \fv -> do |