github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 22:31:36 +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 qualified Semantic.Telemetry.Stat as Stat
import Semantic.Version import Semantic.Version
import System.Environment import System.Environment
import System.IO (hIsTerminalDevice, stderr) import System.IO (hIsTerminalDevice, stdout)
import System.Posix.Process import System.Posix.Process
import System.Posix.Types import System.Posix.Types
@ -66,7 +66,7 @@ defaultConfig :: Options -> IO Config
defaultConfig options@Options{..} = do defaultConfig options@Options{..} = do
pid <- getProcessID pid <- getProcessID
hostName <- getHostName hostName <- getHostName
isTerminal <- hIsTerminalDevice stderr isTerminal <- hIsTerminalDevice stdout
haystackURL <- lookupEnv "HAYSTACK_URL" haystackURL <- lookupEnv "HAYSTACK_URL"
(statsHost, statsPort) <- lookupStatsAddr (statsHost, statsPort) <- lookupStatsAddr
size <- envLookupNum 1000 "MAX_TELEMETRY_QUEUE_SIZE" size <- envLookupNum 1000 "MAX_TELEMETRY_QUEUE_SIZE"