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