diff options
Diffstat (limited to 'Types')
| -rw-r--r-- | Types/View.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Types/View.hs b/Types/View.hs index 7ef44db11..04b002879 100644 --- a/Types/View.hs +++ b/Types/View.hs @@ -28,11 +28,12 @@ instance Arbitrary View where data ViewComponent = ViewComponent { viewField :: MetaField , viewFilter :: ViewFilter + , viewVisible :: Bool } deriving (Eq, Read, Show) instance Arbitrary ViewComponent where - arbitrary = ViewComponent <$> arbitrary <*> arbitrary + arbitrary = ViewComponent <$> arbitrary <*> arbitrary <*> arbitrary {- Only files with metadata matching the view are displayed. -} type FileView = FilePath |