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 pull request #988 from github/empty-lang

Browse Source 
Set LANG to utf8 if it's the empty string
This commit is contained in:
Timothy Clem 2017-02-08 15:32:37 -08:00 committed by GitHub
commit 6c1eb73c74
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

@ -113,7 +113,11 @@ writeToOutput output text =
case output of
Nothing -> do
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
Just path -> do
isDir <- doesDirectoryExist path