Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
15a7e6ba
Commit
15a7e6ba
authored
May 28, 2001
by
qrczak
Browse files
[project @ 2001-05-28 17:34:24 by qrczak]
Fix removing temporary files.
parent
2e63bea6
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/main/TmpFiles.hs
View file @
15a7e6ba
-----------------------------------------------------------------------------
-- $Id: TmpFiles.hs,v 1.
19
2001/05/28
03:31:19 sof
Exp $
-- $Id: TmpFiles.hs,v 1.
20
2001/05/28
17:34:24 qrczak
Exp $
--
-- Temporary file management
--
...
...
@@ -90,7 +90,7 @@ removeTmpFiles verb fs = do
#
if
defined
(
mingw32_TARGET_OS
)
&&
defined
(
MINIMAL_UNIX_DEPS
)
then
kludgedSystem
(
cRM
++
' '
:
dosifyPath
f
)
"Cleaning temp files"
>>
return
()
#
else
then
kludgedSystem
(
cRM
++
f
)
"Cleaning temp files"
>>
return
()
then
kludgedSystem
(
cRM
++
' '
:
f
)
"Cleaning temp files"
>>
return
()
#
endif
else
removeFile
f
)
`
catchAllIO
`
...
...
Write
Preview
Supports
Markdown
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