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.

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