mirror of
https://github.com/github/semantic.git
synced 2024-12-30 02:14:20 +03:00
Configure the passed-in options.
This commit is contained in:
parent
293104b94a
commit
01ac5356cb
@ -152,7 +152,7 @@ defaultOptions = Options
|
||||
configureOptionsForHandle :: Handle -> Options -> IO Options
|
||||
configureOptionsForHandle handle options = do
|
||||
isTerminal <- hIsTerminalDevice handle
|
||||
pure $ Options
|
||||
pure $ options
|
||||
{ optionsColour = optionsColour options <|> Just isTerminal
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user