hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Prefix ghc-mod tmpdirs with "ghc-mod"

Browse Source
This commit is contained in:
Daniel Gröber 2014-12-17 17:53:09 +01:00
parent 6e6c0d99e2
commit 80e826a199
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Language/Haskell/GhcMod/Utils.hs
View File

@ -54,8 +54,7 @@ withDirectory_ dir action =
(\_ -> liftIO (setCurrentDirectory dir) >> action) (\_ -> liftIO (setCurrentDirectory dir) >> action)
uniqTempDirName :: FilePath -> FilePath uniqTempDirName :: FilePath -> FilePath
uniqTempDirName dir = uniqTempDirName dir = ("ghc-mod"++) $ uncurry (++)
uncurry (++)
$ map escapeDriveChar *** map escapePathChar $ map escapeDriveChar *** map escapePathChar
$ splitDrive dir $ splitDrive dir
where where