ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-11-25 19:22:08 +03:00
Code Issues Projects Releases Wiki Activity

Whitespace

Browse Source
This commit is contained in:
Jonathan Daugherty 2020-03-03 09:12:32 -08:00
parent c4ab1e9b53
commit 11e0f2b0a2
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/Graphics/Vty/Config.hs
View File

@ -156,21 +156,21 @@ defaultConfig :: Config
defaultConfig = mempty
instance Semigroup Config where
c0 <> c1 = Config
c0 <> c1 =
-- latter config takes priority for everything but inputMap
{ vmin = vmin c1 <|> vmin c0
, vtime = vtime c1 <|> vtime c0
, mouseMode = mouseMode c1
, bracketedPasteMode = bracketedPasteMode c1
, debugLog = debugLog c1 <|> debugLog c0
, inputMap = inputMap c0 <> inputMap c1
, inputFd = inputFd c1 <|> inputFd c0
, outputFd = outputFd c1 <|> outputFd c0
, termName = termName c1 <|> termName c0
, termWidthMaps = termWidthMaps c1 <|> termWidthMaps c0
, allowCustomUnicodeWithTables =
allowCustomUnicodeWithTables c0 || allowCustomUnicodeWithTables c1
}
Config { vmin = vmin c1 <|> vmin c0
, vtime = vtime c1 <|> vtime c0
, mouseMode = mouseMode c1
, bracketedPasteMode = bracketedPasteMode c1
, debugLog = debugLog c1 <|> debugLog c0
, inputMap = inputMap c0 <> inputMap c1
, inputFd = inputFd c1 <|> inputFd c0
, outputFd = outputFd c1 <|> outputFd c0
, termName = termName c1 <|> termName c0
, termWidthMaps = termWidthMaps c1 <|> termWidthMaps c0
, allowCustomUnicodeWithTables =
allowCustomUnicodeWithTables c0 || allowCustomUnicodeWithTables c1
}
instance Monoid Config where
mempty =