diff options
Diffstat (limited to 'src/Parser')
| -rw-r--r-- | src/Parser/Shell.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Parser/Shell.hs b/src/Parser/Shell.hs index c6c2a40..45f00b9 100644 --- a/src/Parser/Shell.hs +++ b/src/Parser/Shell.hs @@ -95,8 +95,8 @@ parseArgument = choice , fmap ShellArgument <$> parseTextArgument ] -parseArguments :: TestParser (Expr [ ShellArgument ]) -parseArguments = foldr (liftA2 (:)) (Pure []) <$> many parseArgument +parseArguments :: TestParser (Expr ShellArguments) +parseArguments = (ShellArguments <$>) . foldr (liftA2 (:)) (Pure []) <$> many parseArgument parseCommand :: TestParser (Expr ShellCommand) parseCommand = label "shell statement" $ do |