github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-01 00:33:59 +03:00
Code Issues Projects Releases Wiki Activity

no tabs

Browse Source
This commit is contained in:
joshvera 2017-02-08 18:28:43 -05:00
parent 7df0f0ab6e
commit 30029f3640
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Diffing.hs
View File

@ -114,10 +114,10 @@ writeToOutput output text =
Nothing -> do
lang <- lookupEnv "LANG"
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
-- 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