1
1
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:
Rob Rix 2017-07-21 15:59:28 -04:00
parent 293104b94a
commit 01ac5356cb

View File

@ -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
}