diff options
Diffstat (limited to 'Types')
-rw-r--r-- | Types/View.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Types/View.hs b/Types/View.hs index f1759e0e0..7ef44db11 100644 --- a/Types/View.hs +++ b/Types/View.hs @@ -20,7 +20,7 @@ data View = View { viewParentBranch :: Git.Branch , viewComponents :: [ViewComponent] } - deriving (Eq, Show) + deriving (Eq, Read, Show) instance Arbitrary View where arbitrary = View <$> pure (Git.Ref "master") <*> arbitrary @@ -29,7 +29,7 @@ data ViewComponent = ViewComponent { viewField :: MetaField , viewFilter :: ViewFilter } - deriving (Eq, Show, Read) + deriving (Eq, Read, Show) instance Arbitrary ViewComponent where arbitrary = ViewComponent <$> arbitrary <*> arbitrary @@ -41,7 +41,7 @@ type MkFileView = FilePath -> FileView data ViewFilter = FilterValues (S.Set MetaValue) | FilterGlob String - deriving (Eq, Show, Read) + deriving (Eq, Read, Show) instance Arbitrary ViewFilter where arbitrary = do |