Fix inner join example (#50)

This commit is contained in:
tomjaguarpaw 2021-06-18 20:56:21 +01:00 committed by GitHub
parent 19ee619a82
commit 2ba99eaca8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -194,7 +194,7 @@ and this query can be written in Rel8 as::
authorForBlogPost :: BlogPost Expr -> Query (Author Expr) authorForBlogPost :: BlogPost Expr -> Query (Author Expr)
authorForBlogPost blogPost = authorForBlogPost blogPost =
filter ((blogPostAuthorId blogPost ==.) authorId author) =<< filter ((blogPostAuthorId blogPost ==.) . authorId) =<<
each authorSchema each authorSchema
While this is a little more code over all, in our experience this style While this is a little more code over all, in our experience this style