git.iko.soy/typeable/bloodhound
on master help sign in
Added deriving (Eq, Show) to DocumentParent and IndexDocumentSettings
91777e3John Galt
src/Database/Bloodhound/Types.hs+2−1
@@ -461,6 +461,7 @@ data VersionControl = NoVersionControl
461{-| 'DocumentParent' is used to specify a parent document.
461{-| 'DocumentParent' is used to specify a parent document.
462-}
462-}
463newtype DocumentParent = DocumentParent DocId
463newtype DocumentParent = DocumentParent DocId
464+ deriving (Eq, Show)
464
465
465{-| 'IndexDocumentSettings' are special settings supplied when indexing
466{-| 'IndexDocumentSettings' are special settings supplied when indexing
466a document. For the best backwards compatiblity when new fields are
467a document. For the best backwards compatiblity when new fields are
@@ -469,7 +470,7 @@ added, you should probably prefer to start with 'defaultIndexDocumentSettings'
469data IndexDocumentSettings =
470data IndexDocumentSettings =
470 IndexDocumentSettings { idsVersionControl :: VersionControl
471 IndexDocumentSettings { idsVersionControl :: VersionControl
471 , idsParent :: Maybe DocumentParent
472 , idsParent :: Maybe DocumentParent
472− }
473+ } deriving (Eq, Show)
473
474
474{-| Reasonable default settings. Chooses no version control and no parent.
475{-| Reasonable default settings. Chooses no version control and no parent.
475-}
476-}