github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 14:21:31 +03:00
Code Issues Projects Releases Wiki Activity

Merge branch 'master' into monadfail-desugaring

Browse Source
This commit is contained in:
Patrick Thomson 2018-10-22 17:43:26 -04:00 committed by GitHub
commit bfee125016
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Semantic/Config.hs
View File

@ -25,7 +25,7 @@ import qualified Semantic.Telemetry.Haystack as Haystack
import qualified Semantic.Telemetry.Stat as Stat
import Semantic.Version
import System.Environment
import System.IO (hIsTerminalDevice, stderr)
import System.IO (hIsTerminalDevice, stdout)
import System.Posix.Process
import System.Posix.Types
@ -66,7 +66,7 @@ defaultConfig :: Options -> IO Config
defaultConfig options@Options{..} = do
pid <- getProcessID
hostName <- getHostName
isTerminal <- hIsTerminalDevice stderr
isTerminal <- hIsTerminalDevice stdout
haystackURL <- lookupEnv "HAYSTACK_URL"
(statsHost, statsPort) <- lookupStatsAddr
size <- envLookupNum 1000 "MAX_TELEMETRY_QUEUE_SIZE"