From 806fe763c9847e4afb8e9b2d4905cb78c514f761 Mon Sep 17 00:00:00 2001
From: Ping Chen <remotenonsense@gmail.com>
Date: Sat, 7 Sep 2019 08:56:57 +0900
Subject: [PATCH] Fix code example of LeftOuterJoin and ?.

---
 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)
 ```