Posix: Do not treat arguments as FilePath

haskell · Aug 16, 2024 · 8d73906 · 8d73906
1 parent 302b43a
commit 8d73906
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/System/Process/Posix.hs b/System/Process/Posix.hs
@@ -136,7 +136,9 @@ createProcess_Internal fun
    maybeWith withFilePath mb_cwd $ \pWorkDir ->
    maybeWith with mb_child_group $ \pChildGroup ->
    maybeWith with mb_child_user $ \pChildUser ->
-   withMany withFilePath (cmd:args) $ \cstrs ->
+   withFilePath cmd $ \cmdstr ->
+   withMany withCString args $ \argstrs -> do
+   let cstrs = cmdstr : argstrs
    withArray0 nullPtr cstrs $ \pargs -> do
 
      fdin  <- mbFd fun fd_stdin  mb_stdin