From 13632817a4bd4d5ecad0f83bc7257c009c598f48 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= <dxld@darkboxed.org>
Date: Wed, 30 Dec 2015 14:24:56 +0100
Subject: [PATCH] Make tempdirs less annoying

---
 Language/Haskell/GhcMod/Utils.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Language/Haskell/GhcMod/Utils.hs b/Language/Haskell/GhcMod/Utils.hs
index 99d4190..401ab9d 100644
--- a/Language/Haskell/GhcMod/Utils.hs
+++ b/Language/Haskell/GhcMod/Utils.hs
@@ -70,8 +70,8 @@ uniqTempDirName dir =
       | otherwise               = c
 
 newTempDir :: FilePath -> IO FilePath
-newTempDir dir =
-  flip createTempDirectory (uniqTempDirName dir) =<< getTemporaryDirectory
+newTempDir _dir =
+  flip createTempDirectory "ghc-mod" =<< getTemporaryDirectory
 
 whenM :: Monad m => m Bool -> m () -> m ()
 whenM mb ma = mb >>= flip when ma