diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-09-01 20:35:23 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-09-03 20:53:42 +0200 |
| commit | c2c89cf5308ea5c490a4fe150cffc72ed09c4c1c (patch) | |
| tree | 240707a2f690be7cd4d416b49a7dfb45fd33892c /src/Parser | |
| parent | 187d358533a8d07954b8b6fa0f6cf191ba25f1ef (diff) | |
Add newtype for ShellArguments
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 |