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
GHC
Commits
3a36e447
Commit
3a36e447
authored
Apr 04, 2006
by
Simon Marlow
Browse files
crummy fix for Windows
parent
1a6fcb4f
Changes
2
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/lib/Process/process001.hs
View file @
3a36e447
{-# OPTIONS -cpp #-}
import
System.IO
import
System.Process
#
ifdef
mingw32_HOST_OS
cmd
=
"c:/cygwin/bin/ls"
#
else
cmd
=
"/bin/ls"
#
endif
test
=
do
h
<-
openFile
"output"
WriteMode
ph
<-
runProcess
"/bin/ls"
[]
Nothing
Nothing
Nothing
(
Just
h
)
Nothing
ph
<-
runProcess
cmd
[]
Nothing
Nothing
Nothing
(
Just
h
)
Nothing
waitForProcess
ph
main
=
test
>>
test
>>
return
()
testsuite/tests/ghc-regress/lib/Process/process002.hs
View file @
3a36e447
{-# OPTIONS -cpp #-}
import
System.Process
import
System.IO
#
ifdef
mingw32_HOST_OS
cmd
=
"c:/cygwin/bin/ls"
#
else
cmd
=
"/bin/ls"
#
endif
main
=
do
h
<-
openFile
"output"
WriteMode
ph
<-
runProcess
"/bin/ls"
[]
Nothing
Nothing
Nothing
(
Just
h
)
(
Just
h
)
ph
<-
runProcess
cmd
[]
Nothing
Nothing
Nothing
(
Just
h
)
(
Just
h
)
waitForProcess
ph
return
()
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