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

Merge pull request #221 from satoshi-murakumo/fix-windows-tempfile-handling

Browse Source 
Fix windows tempfile handling
This commit is contained in:
Kazu Yamamoto 2014-04-17 09:20:10 +09:00
commit 68f64639dc
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