summaryrefslogtreecommitdiff
path: root/Types/View.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-02-19 01:09:17 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-02-19 01:19:57 -0400
commit51c12a76ef54affaf9428232fde4f2c3e30e7488 (patch)
tree4cb2699e2b410260e383d3bf6da14d502aa0d0dc /Types/View.hs
parentb5b5ead4b28fd08100bcac9cb9482263bac3a64e (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.hs6
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