From: Malcolm.Wallace@cs.york.ac.uk <unknown>
Date: Wed, 20 Feb 2008 10:24:53 +0000 (+0000)
Subject: unbreak previous patch for nhc98
X-Git-Tag: 2008-05-28^0
X-Git-Url: http://git.megacz.com/?p=haskell-directory.git;a=commitdiff_plain;h=1f9af202c6e595283fe57577eade9b8b4c30355c

unbreak previous patch for nhc98
---

diff --git a/System/Directory.hs b/System/Directory.hs
index d705c0d..d1cf495 100644
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -1028,9 +1028,13 @@ getTemporaryDirectory = do
      peekCString pPath
 #else
   getEnv "TMPDIR"
+#if !__NHC__
     `catch` \ex -> case ex of
                      IOException e | isDoesNotExistError e -> return "/tmp"
                      _ -> throw ex
+#else
+    `catch` (\ex -> return "/tmp")
+#endif
 #endif
 
 #if defined(mingw32_HOST_OS)