Commit a48cb161 authored by sewardj's avatar sewardj

[project @ 2001-04-18 11:58:02 by sewardj]

include ../includes/config.h
parent 758c508d
-----------------------------------------------------------------------------
-- $Id: TmpFiles.hs,v 1.16 2001/03/08 09:50:18 simonmar Exp $
-- $Id: TmpFiles.hs,v 1.17 2001/04/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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment