ff8fd2d · vty · git.iko.soy

Correct misspelling in allowCustomUnicodeWidthTables field name

commitff8fd2dd326bfcae729e20cf4f4aae8a7799c19c authorJonathan Daugherty <cygnus@foobox.com> dateTue 3 Mar 2020, 09:19 (7 years ago) parent8ecdb95

2 files changed+5−5

unifiedsplit

src/Graphics/Vty.hs+1−1

@@ -114,7 +114,7 @@ mkVty :: Config -> IO Vty

114114mkVty appConfig = do

115115 config <- (<> appConfig) <$> userConfig

116116

117− when (allowCustomUnicodeWithTables config /= Just False) $

117+ when (allowCustomUnicodeWidthTables config /= Just False) $

118118 installWidthTable config

119119

120120 input <- inputForConfig config

src/Graphics/Vty/Config.hs+4−4

@@ -149,7 +149,7 @@ data Config =

149149 -- The default is the value of the TERM environment variable.

150150 , termWidthMaps :: [(String, FilePath)]

151151 -- ^ Terminal width map files.

152− , allowCustomUnicodeWithTables :: Maybe Bool

152+ , allowCustomUnicodeWidthTables :: Maybe Bool

153153 -- ^ Whether to permit custom Unicode width table loading.

154154 -- 'Just False' indicates that table loading should not be

155155 -- performed. Other values permit table loading.

@@ -172,8 +172,8 @@ instance Semigroup Config where

172172 , outputFd = outputFd c1 <|> outputFd c0

173173 , termName = termName c1 <|> termName c0

174174 , termWidthMaps = termWidthMaps c1 <|> termWidthMaps c0

175− , allowCustomUnicodeWithTables =

176− allowCustomUnicodeWithTables c1 <|> allowCustomUnicodeWithTables c0

175+ , allowCustomUnicodeWidthTables =

176+ allowCustomUnicodeWidthTables c1 <|> allowCustomUnicodeWidthTables c0

177177 }

178178

179179instance Monoid Config where

@@ -188,7 +188,7 @@ instance Monoid Config where

188188 , outputFd = Nothing

189189 , termName = Nothing

190190 , termWidthMaps = []

191− , allowCustomUnicodeWithTables = Nothing

191+ , allowCustomUnicodeWidthTables = Nothing

192192 }

193193#if !(MIN_VERSION_base(4,11,0))

194194 mappend = (<>)