From: sewardj <unknown>
Date: Wed, 18 Apr 2001 11:58:02 +0000 (+0000)
Subject: [project @ 2001-04-18 11:58:02 by sewardj]
X-Git-Tag: Approximately_9120_patches~2136
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a48cb161bb6986a437c97c08b3bd1a3edbe8ba1d;p=ghc-hetmet.git

[project @ 2001-04-18 11:58:02 by sewardj]
include ../includes/config.h
---

diff --git a/ghc/compiler/main/TmpFiles.hs b/ghc/compiler/main/TmpFiles.hs
index c90a22f..68ced53 100644
--- a/ghc/compiler/main/TmpFiles.hs
+++ b/ghc/compiler/main/TmpFiles.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $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