Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
Packages
Cabal
Commits
2f876725
Commit
2f876725
authored
May 14, 2008
by
Malcolm.Wallace
Browse files
fix scope errors in non-GHC branch of an #ifdef
parent
5b40d3f1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Distribution/Simple/Utils.hs
View file @
2f876725
...
...
@@ -350,11 +350,11 @@ rawSystemStdout' verbosity path args = do
withTempFile
tmpDir
".cmd.stdout"
$
\
tmpName
tmpHandle
->
do
hClose
tmpHandle
let
quote
name
=
"'"
++
name
++
"'"
exit
C
ode
<-
system
$
unwords
(
map
quote
(
path
:
args
))
++
" >"
++
quote
tmpName
exit
c
ode
<-
system
$
unwords
(
map
quote
(
path
:
args
))
++
" >"
++
quote
tmpName
unless
(
exitcode
==
ExitSuccess
)
$
debug
verbosity
$
path
++
" returned "
++
show
exitcode
output
<-
readFile
tmpName
length
output
`
seq
`
return
(
output
,
exit
C
ode
)
length
output
`
seq
`
return
(
output
,
exit
c
ode
)
#
endif
-- | Like the unix xargs program. Useful for when we've got very long command
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment