From 1f9af202c6e595283fe57577eade9b8b4c30355c Mon Sep 17 00:00:00 2001
From: "Malcolm.Wallace@cs.york.ac.uk" <unknown>
Date: Wed, 20 Feb 2008 10:24:53 +0000
Subject: [PATCH] unbreak previous patch for nhc98

---
 System/Directory.hs |    4 ++++
 1 file changed, 4 insertions(+)

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)
-- 
1.7.10.4