diff options
author | Joey Hess <joey@kitenet.net> | 2014-02-19 01:09:17 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-02-19 01:19:57 -0400 |
commit | 4e0be2792b3908c03e4cb44cacb580c750276033 (patch) | |
tree | ca7d33b38856d3e0accfbc44503e375f64000138 /Types/View.hs | |
parent | eb7b8747f9e30ba031f5aa7dc87a4045ffa2f649 (diff) |
remove Read instance for Ref
Removed instance, got it all to build using fromRef. (With a few things
that really need to show something using a ref for debugging stubbed out.)
Then added back Read instance, and made Logs.View use it for serialization.
This changes the view log format.
Diffstat (limited to 'Types/View.hs')
-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 f1759e0e08..7ef44db11c 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 |