Prefix ghc-mod tmpdirs with "ghc-mod"

This commit is contained in:
Daniel Gröber 2014-12-17 17:53:09 +01:00
parent 6e6c0d99e2
commit 80e826a199

View File

@ -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