From 80e826a199e48ceba892183ff625837817c6f422 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= <dxld@darkboxed.org>
Date: Wed, 17 Dec 2014 17:53:09 +0100
Subject: [PATCH] Prefix ghc-mod tmpdirs with "ghc-mod"

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

diff --git a/Language/Haskell/GhcMod/Utils.hs b/Language/Haskell/GhcMod/Utils.hs
index 2773839..5182089 100644
--- a/Language/Haskell/GhcMod/Utils.hs
+++ b/Language/Haskell/GhcMod/Utils.hs
@@ -54,8 +54,7 @@ withDirectory_ dir action =
                 (\_ -> liftIO (setCurrentDirectory dir) >> action)
 
 uniqTempDirName :: FilePath -> FilePath
-uniqTempDirName dir =
-    uncurry (++)
+uniqTempDirName dir = ("ghc-mod"++) $ uncurry (++)
         $ map escapeDriveChar *** map escapePathChar
         $ splitDrive dir
  where