github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00
Code Issues Projects Releases Wiki Activity

Merge remote-tracking branch 'origin/master' into cache-and-discard-feature-vectors

Browse Source
This commit is contained in:
Rob Rix 2017-02-09 10:16:14 -05:00
commit 2e386dc76f
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Diffing.hs
View File

@ -114,7 +114,11 @@ writeToOutput output text =
case output of case output of
Nothing -> do Nothing -> do
lang <- lookupEnv "LANG" lang <- lookupEnv "LANG"
if isNothing lang then IO.hSetEncoding IO.stdout IO.utf8 else pure () case lang of
-- If LANG is set and isn't the empty string, leave the encoding.
Just x | x /= "" -> pure ()
-- Otherwise default to utf8.
_ -> IO.hSetEncoding IO.stdout IO.utf8
TextIO.hPutStrLn IO.stdout text TextIO.hPutStrLn IO.stdout text
Just path -> do Just path -> do
isDir <- doesDirectoryExist path isDir <- doesDirectoryExist path