More tests

2018-10-26 23:59:06 +03:00
parent fb29a6e694
commit 7928aa1cb6
3 changed files with 56 additions and 3 deletions
--- a/backend/src/API/Books.hs
+++ b/backend/src/API/Books.hs
@ -41,14 +41,14 @@ data JsonBook = JsonBook { identifier :: BookID
                         , description :: Maybe Text
                         , channels :: [Text]
                         , tags :: [Text] }
-              deriving (Generic, Show)
+              deriving (Generic, Show, Eq)

 data PostBook = PostBook { contentType :: Text
                         , title :: Text
                         , description :: Maybe Text
                         , channels :: [Text]
                         , tags :: [Text] }
-              deriving (Generic, Show)
+              deriving (Generic, Show, Eq)


 instance ToJSON JsonBook