@@ -156,21 +156,21 @@ defaultConfig :: Config
156defaultConfig = mempty
156defaultConfig = mempty
158instance Semigroup Config where
158instance Semigroup Config where
159− c0 <> c1 = Config
159+ c0 <> c1 =
160 -- latter config takes priority for everything but inputMap
160 -- latter config takes priority for everything but inputMap
161− { vmin = vmin c1 <|> vmin c0
161+ Config { vmin = vmin c1 <|> vmin c0
162− , vtime = vtime c1 <|> vtime c0
162+ , vtime = vtime c1 <|> vtime c0
163− , mouseMode = mouseMode c1
163+ , mouseMode = mouseMode c1
164− , bracketedPasteMode = bracketedPasteMode c1
164+ , bracketedPasteMode = bracketedPasteMode c1
165− , debugLog = debugLog c1 <|> debugLog c0
165+ , debugLog = debugLog c1 <|> debugLog c0
166− , inputMap = inputMap c0 <> inputMap c1
166+ , inputMap = inputMap c0 <> inputMap c1
167− , inputFd = inputFd c1 <|> inputFd c0
167+ , inputFd = inputFd c1 <|> inputFd c0
168− , outputFd = outputFd c1 <|> outputFd c0
168+ , outputFd = outputFd c1 <|> outputFd c0
169− , termName = termName c1 <|> termName c0
169+ , termName = termName c1 <|> termName c0
170− , termWidthMaps = termWidthMaps c1 <|> termWidthMaps c0
170+ , termWidthMaps = termWidthMaps c1 <|> termWidthMaps c0
171− , allowCustomUnicodeWithTables =
171+ , allowCustomUnicodeWithTables =
172− allowCustomUnicodeWithTables c0 || allowCustomUnicodeWithTables c1
172+ allowCustomUnicodeWithTables c0 || allowCustomUnicodeWithTables c1
175instance Monoid Config where
175instance Monoid Config where