T.P.App.CommandLineOptions: don't lowercase arg to --from/--read

This prevented users to use custom writers with uppercase characters in
their filenames. Format-normalization, including lower-casing of
format identifiers, happens during format parsing.
This commit is contained in:
Albert Krewinkel
2023-03-23 07:08:45 +01:00
parent fe720dd0c6
commit cf8370f4e5
+1 -2
View File
@@ -235,8 +235,7 @@ options :: [OptDescr (Opt -> ExceptT OptInfo IO Opt)]
options =
[ Option "fr" ["from","read"]
(ReqArg
(\arg opt -> return opt { optFrom =
Just (T.toLower $ T.pack arg) })
(\arg opt -> return opt { optFrom = Just $ T.pack arg })
"FORMAT")
""