diff options
| -rw-r--r-- | Annex/View.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Annex/View.hs b/Annex/View.hs index 620e71f0e..3ac22a6d8 100644 --- a/Annex/View.hs +++ b/Annex/View.hs @@ -99,11 +99,14 @@ fileViewFromReference f = base ++ concatMap (\d -> "(" ++ d ++ ")") dirs ++ conc - - Note that a file may appear multiple times in a view, when it - has multiple matching values for a MetaField used in the View. + - + - Of course if its MetaData does not match the View, it won't appear at + - all. -} -fileViews :: View -> MkFileView -> FilePath -> MetaData -> Maybe [FileView] +fileViews :: View -> MkFileView -> FilePath -> MetaData -> [FileView] fileViews view mkfileview file metadata - | any isNothing matches = Nothing - | otherwise = Just $ map (</> mkfileview file) $ + | any isNothing matches = [] + | otherwise = map (</> mkfileview file) $ pathProduct $ map (map fromMetaValue) $ visible matches where matches :: [Maybe [MetaValue]] |