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

Fix output encoding in loadMappedFileSource

Browse Source
This commit is contained in:
Nikolay Yakimov 2016-02-09 16:25:30 +03:00
parent 721951e32c
commit 69727f24fa
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