Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
jberryman
GHC
Commits
a48cb161
Commit
a48cb161
authored
Apr 18, 2001
by
sewardj
Browse files
[project @ 2001-04-18 11:58:02 by sewardj]
include ../includes/config.h
parent
758c508d
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/main/TmpFiles.hs
View file @
a48cb161
-----------------------------------------------------------------------------
-- $Id: TmpFiles.hs,v 1.1
6
2001/0
3/08 09:50:18 simonmar
Exp $
-- $Id: TmpFiles.hs,v 1.1
7
2001/0
4/18 11:58:02 sewardj
Exp $
--
-- Temporary file management
--
...
...
@@ -35,6 +35,7 @@ import Directory
import
IO
import
Monad
#
include
"../includes/config.h"
#
include
"HsVersions.h"
GLOBAL_VAR
(
v_FilesToClean
,
[]
,
[
String
]
)
...
...
@@ -99,6 +100,7 @@ removeTmpFiles verb fs = do
kludgedSystem
cmd
phase_name
=
do
#
ifndef
mingw32_TARGET_OS
la
la
la
exit_code
<-
system
cmd
`
catchAllIO
`
(
\
_
->
throwDyn
(
PhaseFailed
phase_name
(
ExitFailure
1
)))
#
else
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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