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

Merge pull request #750 from atom-haskell/fix-output-enc

Browse Source 
Fix output encoding in loadMappedFileSource
This commit is contained in:
Nikolay Yakimov 2016-02-09 18:17:27 +03:00
commit 3ca408ec6a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Language/Haskell/GhcMod/FileMapping.hs
View File

@ -46,8 +46,10 @@ loadMappedFileSource :: IOish m
-> GhcModT m () -> GhcModT m ()
loadMappedFileSource from src = do loadMappedFileSource from src = do
tmpdir <- cradleTempDir `fmap` cradle tmpdir <- cradleTempDir `fmap` cradle
enc <- liftIO . mkTextEncoding . optEncoding =<< options
to <- liftIO $ do to <- liftIO $ do
(fn, h) <- openTempFile tmpdir (takeFileName from) (fn, h) <- openTempFile tmpdir (takeFileName from)
hSetEncoding h enc
hPutStr h src hPutStr h src
hClose h hClose h
return fn return fn