parsing: modify shellcommand read to match project

quanterall · Sep 11, 2022 · 4d4d098 · 4d4d098
1 parent bdbdc62
commit 4d4d098
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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]