From 4d4d098198c263f7cd29f40eda86878dff16b1ed Mon Sep 17 00:00:00 2001 From: Rickard Andersson Date: Sun, 11 Sep 2022 15:47:53 +0300 Subject: [PATCH] parsing: modify shellcommand read to match project --- basics/extras/parsing-with-megaparsec.md | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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]