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.
This commit is contained in:
parent
eb7b8747f9
commit
4e0be2792b
32 changed files with 101 additions and 104 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue