github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-01 19:55:34 +03:00
Code Issues Projects Releases Wiki Activity

Less noisy logging

Browse Source
This commit is contained in:
Timothy Clem 2019-02-26 09:31:30 -08:00
parent d586cfb8dd
commit deddb2d82e
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Semantic/Config.hs
View File

@ -6,6 +6,7 @@ module Semantic.Config
, Options (..)
, defaultOptions
, debugOptions
, infoOptions
, lookupStatsAddr
, withHaystackFromConfig
, logOptionsFromConfig
@ -63,6 +64,9 @@ defaultOptions = Options (Just Warning) False False
debugOptions :: Options
debugOptions = Options (Just Debug) False False
infoOptions :: Options
infoOptions = Options (Just Info) False False
defaultConfig :: Options -> IO Config
defaultConfig options@Options{..} = do
pid <- getProcessID