From 4a98a707604d98312d4eb59801da6b822cd2b983 Mon Sep 17 00:00:00 2001 From: Oleg Nykolyn Date: Tue, 17 Sep 2019 18:39:35 +0300 Subject: [PATCH] Fix LeftOuterJoin example in README. --- README.md | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/README.md b/README.md index b8de54c..f288d24 100644 --- a/README.md +++ b/README.md @@ -157,8 +157,8 @@ However, you may want your results to include people who don't have any blog pos ```haskell select $ -from $ \(p `LeftOuterJoin`` mb) -> do -on (p ^. PersonId ==. mb ?. BlogPostAuthorId) +from $ \(p `LeftOuterJoin` mb) -> do +on (just (p ^. PersonId) ==. mb ?. BlogPostAuthorId) orderBy [asc (p ^. PersonName), asc (mb ?. BlogPostTitle)] return (p, mb) ```