1
1
mirror of https://github.com/github/semantic.git synced 2024-12-01 09:15:01 +03:00
This commit is contained in:
joshvera 2017-02-08 18:28:43 -05:00
parent 7df0f0ab6e
commit 30029f3640

View File

@ -114,10 +114,10 @@ writeToOutput output text =
Nothing -> do Nothing -> do
lang <- lookupEnv "LANG" lang <- lookupEnv "LANG"
case lang of case lang of
-- If LANG is set and isn't the empty string, leave the encoding. -- If LANG is set and isn't the empty string, leave the encoding.
Just x | x /= "" -> pure () Just x | x /= "" -> pure ()
-- Otherwise default to utf8. -- Otherwise default to utf8.
_ -> IO.hSetEncoding IO.stdout IO.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