diff --git a/basics/extras/parsing-with-megaparsec.md b/basics/extras/parsing-with-megaparsec.md
index 979de65..bf1afa2 100644
--- a/basics/extras/parsing-with-megaparsec.md
+++ b/basics/extras/parsing-with-megaparsec.md
@@ -886,9 +886,9 @@ shellCommandP = do
       -- to access standard out, standard error or the exit code.
       _ <- MChar.char '.'
       Megaparsec.choice
-        [ MChar.string "out" *> pure ShellStandardOut,
-          MChar.string "err" *> pure ShellStandardError,
-          MChar.string "code" *> pure ShellExitCode
+        [ MChar.string "out" $> ShellStandardOut,
+          MChar.string "err" $> ShellStandardError,
+          MChar.string "code" $> ShellExitCode
         ]
 
     shellCommandTextP :: Parser [ShellCommandText]