diff options
| author | Akshay Nair <phenax5@gmail.com> | 2025-11-07 10:37:00 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2025-11-07 10:37:00 +0530 |
| commit | 0e4a7e45357e6024586b6042c1f4c173926a2ace (patch) | |
| tree | a61c5bc6b3f274845487fc06af1352b4c94d628a /lib/Daffm/Args.hs | |
| parent | 1481e69cee500a98aafca08e676c9e47fb1c9fb7 (diff) | |
| download | daffm-0e4a7e45357e6024586b6042c1f4c173926a2ace.tar.gz daffm-0e4a7e45357e6024586b6042c1f4c173926a2ace.zip | |
Fix shell escaping for substitutions
Diffstat (limited to '')
| -rw-r--r-- | lib/Daffm/Args.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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} |