Prefix ghc-mod tmpdirs with "ghc-mod"

2014-12-17 17:53:09 +01:00 · 2014-12-17 17:53:09 +01:00 · 80e826a199
parent 6e6c0d99e2
commit 80e826a199
1 changed files with 1 additions and 2 deletions
--- 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