From 0e4a7e45357e6024586b6042c1f4c173926a2ace Mon Sep 17 00:00:00 2001 From: Akshay Nair Date: Fri, 7 Nov 2025 10:37:00 +0530 Subject: Fix shell escaping for substitutions --- lib/Daffm/Args.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Daffm/Args.hs') diff --git a/lib/Daffm/Args.hs b/lib/Daffm/Args.hs index aeaead7..1b81827 100644 --- a/lib/Daffm/Args.hs +++ b/lib/Daffm/Args.hs @@ -9,7 +9,7 @@ parseArgs rawArgs = case parsedArgs of Left e -> throwIO $ userError e Right v -> pure v where - parsedArgs = parse rawArgs (Args {argsDirOrFile = Nothing, argsConfigFile = Nothing, argsHelp = False}) + parsedArgs = parse rawArgs $ Args {argsDirOrFile = Nothing, argsConfigFile = Nothing, argsHelp = False} parse :: [String] -> Args -> Either String Args parse [] args = Right args parse ("-h" : _) args = Right $ args {argsHelp = True} -- cgit v1.3.1