MasseR/ebook-manager
1
0
Fork 0
Code Issues 9 Pull Requests Releases Wiki Activity

Listing books

Browse Source
This commit is contained in:
Mats Rauhala
2018-08-05 23:42:37 +03:00
parent f8f35007bf
commit 46c728c3c8
6 changed files with 90 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/Database/Schema.hs
View File

@ -83,15 +83,15 @@ instance SqlType HashDigest where
books :: GenTable Book
books = genTable "books" [ contentHash :- primaryGen ]
data UserBook = UserBook { email :: Text
data UserBook = UserBook { user :: RowID
, book :: HashDigest }
deriving (Generic, Show)
userBooks :: GenTable UserBook
userBooks = genTable "user_book" [ (email :: UserBook -> Text) :- fkGen (gen users) userEmail
userBooks = genTable "user_book" [ (user :: UserBook -> RowID) :- fkGen (gen users) userId
, (book :: UserBook -> HashDigest) :- fkGen (gen books) bookHash ]
where
_ :*: userEmail :*: _ = selectors (gen users)
userId :*: _ = selectors (gen users)
bookHash :*: _ = selectors (gen books)
-- | Categorizing books