Config: make Semigroup instance take disjunction of allowCustomUnicodeWithTables values

This commit is contained in:
Jonathan Daugherty 2020-03-03 09:06:23 -08:00
parent 9737f2b4ee
commit 59f90de8b2

View File

@ -168,7 +168,8 @@ instance Semigroup Config where
, outputFd = outputFd c1 <|> outputFd c0
, termName = termName c1 <|> termName c0
, termWidthMaps = termWidthMaps c1 <|> termWidthMaps c0
, allowCustomUnicodeWithTables = allowCustomUnicodeWithTables c1
, allowCustomUnicodeWithTables =
allowCustomUnicodeWithTables c0 || allowCustomUnicodeWithTables c1
}
instance Monoid Config where