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

Fix windows tempfile handling

Browse Source 
On Windows, `ghc-mod lint` fails with following message.

    ghc-mod: DeleteFile "<Ommit>\\Temp\\ghc-mod-hlint8464": permission denied <Ommit>

Perhaps, On Windows, GHC opens file exclusively.
So, we move `removeFile` to `finally`.
This commit is contained in:
satoshi-murakumo 2014-04-16 14:45:14 +09:00
parent abb9ecd8ac
commit 0eadfa91fd
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Language/Haskell/GhcMod/Lint.hs
View File

@ -31,8 +31,9 @@ suppressStdout :: IO a -> IO a
suppressStdout f = do suppressStdout f = do
tmpdir <- getTemporaryDirectory tmpdir <- getTemporaryDirectory
(path, handle) <- openTempFile tmpdir "ghc-mod-hlint" (path, handle) <- openTempFile tmpdir "ghc-mod-hlint"
removeFile path
dup <- hDuplicate stdout dup <- hDuplicate stdout
hDuplicateTo handle stdout hDuplicateTo handle stdout
hClose handle hClose handle
f `finally` hDuplicateTo dup stdout f `finally` do
hDuplicateTo dup stdout
removeFile path