github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-27 12:57:49 +03:00
Code Issues Projects Releases Wiki Activity

Just one defaultConfig

Browse Source
This commit is contained in:
Timothy Clem 2018-06-15 10:17:02 -07:00
parent 033a748ed7
commit 21e3f69110
3 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Semantic/Config.hs
View File

@ -48,11 +48,8 @@ data StatsAddr = StatsAddr { addrHost :: Stat.Host, addrPort :: Stat.Port }
defaultOptions :: Options
defaultOptions = Options (Just Warning) Nothing False
defaultConfig :: IO Config
defaultConfig = defaultConfig' defaultOptions
defaultConfig' :: Options -> IO Config
defaultConfig' options@Options{..} = do
defaultConfig :: Options -> IO Config
defaultConfig options@Options{..} = do
pid <- getProcessID
hostName <- getHostName
isTerminal <- hIsTerminalDevice stderr

2
src/Semantic/Task.hs
View File

@ -128,7 +128,7 @@ runTask = runTaskWithOptions defaultOptions
-- | Execute a 'TaskEff' with the passed 'Options', yielding its result value in 'IO'.
runTaskWithOptions :: Options -> TaskEff a -> IO a
runTaskWithOptions opts task = do
config <- defaultConfig' opts
config <- defaultConfig opts
result <- withTelemetry config $ \(TelemetryQueues logger statter _) ->
runTaskWithConfig config logger statter task
either (die . displayException) pure result

2
test/Semantic/Stat/Spec.hs
View File

@ -84,4 +84,4 @@ spec = do
-- Defaults are all driven by defaultConfig.
defaultStatsClient :: IO StatsClient
defaultStatsClient = defaultConfig >>= \Config{..} -> statsClient (addrHost configStatsAddr) (addrPort configStatsAddr) configAppName
defaultStatsClient = defaultConfig defaultOptions >>= \Config{..} -> statsClient (addrHost configStatsAddr) (addrPort configStatsAddr) configAppName