NorfairKing/feedback
1
1
Fork 0
mirror of https://github.com/NorfairKing/feedback.git synced 2024-11-26 13:21:05 +03:00
Code Issues Projects Releases Wiki Activity

Don't filter out empty arguments

Browse Source
This commit is contained in:
Tom Sydney Kerckhove 2022-11-14 15:55:09 +01:00
parent f3a1f3938a
commit 4c6126b887
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
feedback/src/Feedback/Common/OptParse.hs
View File

@ -17,6 +17,7 @@ import Data.Maybe
import qualified Data.Text as T
import Data.Version
import Data.Yaml (FromJSON, ToJSON)
import Debug.Trace
import qualified Env
import GHC.Generics (Generic)
import Options.Applicative as OptParse
@ -348,9 +349,10 @@ parseCommandFlags =
'\'' -> "\\\'"
c -> [c]
quote = ("\"" <>) . (<> "\"") . concatMap escapeChar
quoteIfNecessary "" = quote ""
quoteIfNecessary s = if ' ' `elem` s then quote s else s
pieceBackTogether = unwords . map quoteIfNecessary
in pieceBackTogether <$> many commandArg
in pieceBackTogether . traceShowId <$> many commandArg
defaultConfigFileCompleter :: IO [String]
defaultConfigFileCompleter = do