factor out new module

This commit is contained in:
Joey Hess 2014-02-22 13:35:50 -04:00
parent 2a65f07621
commit 1435c4f149
4 changed files with 88 additions and 52 deletions

View file

@ -35,10 +35,6 @@ data ViewComponent = ViewComponent
instance Arbitrary ViewComponent where
arbitrary = ViewComponent <$> arbitrary <*> arbitrary <*> arbitrary
{- Only files with metadata matching the view are displayed. -}
type FileView = FilePath
type MkFileView = FilePath -> FileView
data ViewFilter
= FilterValues (S.Set MetaValue)
| FilterGlob String