Fix output encoding in loadMappedFileSource
This commit is contained in:
parent
721951e32c
commit
69727f24fa
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user