From: simonpj <unknown>
Date: Thu, 7 Dec 2000 08:20:46 +0000 (+0000)
Subject: [project @ 2000-12-07 08:20:46 by simonpj]
X-Git-Tag: Approximately_9120_patches~3187
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=275085675cabfdf5d3298d436aa1cf3aaf3291ca;p=ghc-hetmet.git

[project @ 2000-12-07 08:20:46 by simonpj]
Make it work even if mingw32_TARGET_OS is defined
---

diff --git a/ghc/compiler/main/TmpFiles.hs b/ghc/compiler/main/TmpFiles.hs
index 1912cbe..b0c19d8 100644
--- a/ghc/compiler/main/TmpFiles.hs
+++ b/ghc/compiler/main/TmpFiles.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: TmpFiles.hs,v 1.10 2000/12/05 12:09:43 sewardj Exp $
+-- $Id: TmpFiles.hs,v 1.11 2000/12/07 08:20:46 simonpj Exp $
 --
 -- Temporary file management
 --
@@ -42,6 +42,7 @@ initTempFileStorage = do
 #ifndef mingw32_TARGET_OS
 	      writeIORef v_TmpDir dir
 #endif
+	      return ()
           )
 
 cleanTempFiles :: Bool -> IO ()