From c2c89cf5308ea5c490a4fe150cffc72ed09c4c1c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Tue, 1 Sep 2026 20:35:23 +0200 Subject: Add newtype for ShellArguments --- src/Parser/Shell.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Parser') 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 -- cgit v1.2.3