X-Git-Url: http://git.megacz.com/?p=haskell-directory.git;a=blobdiff_plain;f=System%2FDirectory.hs;h=d1cf49518ef9d0e5af8a801bc09aaa83b74cf176;hp=d705c0d27ed711f3bb881fd0b87b33015e58c4d9;hb=1f9af202c6e595283fe57577eade9b8b4c30355c;hpb=29fd272657d1c13500e7cd5f670aadc8ed41c445

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)