Make tempdirs less annoying
This commit is contained in:
parent
cee8a29a54
commit
13632817a4
@ -70,8 +70,8 @@ uniqTempDirName dir =
|
|||||||
| otherwise = c
|
| otherwise = c
|
||||||
|
|
||||||
newTempDir :: FilePath -> IO FilePath
|
newTempDir :: FilePath -> IO FilePath
|
||||||
newTempDir dir =
|
newTempDir _dir =
|
||||||
flip createTempDirectory (uniqTempDirName dir) =<< getTemporaryDirectory
|
flip createTempDirectory "ghc-mod" =<< getTemporaryDirectory
|
||||||
|
|
||||||
whenM :: Monad m => m Bool -> m () -> m ()
|
whenM :: Monad m => m Bool -> m () -> m ()
|
||||||
whenM mb ma = mb >>= flip when ma
|
whenM mb ma = mb >>= flip when ma
|
||||||
|
Loading…
Reference in New Issue
Block a user