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

[#722] Get encoding from hlint options

Browse Source
This commit is contained in:
Nikolay Yakimov 2016-01-12 22:09:33 +03:00
parent 0a0cd8041e
commit 5425a09666
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -22,7 +22,7 @@ lint opt file = ghandle handler $
withMappedFile file $ \tempfile -> do withMappedFile file $ \tempfile -> do
(flags, classify, hint) <- liftIO $ argsSettings $ optLintHlintOpts opt (flags, classify, hint) <- liftIO $ argsSettings $ optLintHlintOpts opt
hSrc <- liftIO $ openFile tempfile ReadMode hSrc <- liftIO $ openFile tempfile ReadMode
liftIO $ hSetEncoding hSrc utf8 liftIO $ hSetEncoding hSrc (encoding flags)
res <- liftIO $ parseModuleEx flags file =<< Just `fmap` hGetContents hSrc res <- liftIO $ parseModuleEx flags file =<< Just `fmap` hGetContents hSrc
case res of case res of
Right m -> pack . map show $ applyHints classify hint [m] Right m -> pack . map show $ applyHints classify hint [m]