Prefix ghc-mod tmpdirs with "ghc-mod"
This commit is contained in:
parent
6e6c0d99e2
commit
80e826a199
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user