git.iko.soy/vty
on master help sign in
Correct misspelling in allowCustomUnicodeWidthTables field name
ff8fd2dJonathan Daugherty
src/Graphics/Vty.hs+1−1
compare with master
unifiedsplit
@@ -114,7 +114,7 @@ mkVty :: Config -> IO Vty
114mkVty appConfig = do
114mkVty appConfig = do
115 config <- (<> appConfig) <$> userConfig
115 config <- (<> appConfig) <$> userConfig
116
116
117− when (allowCustomUnicodeWithTables config /= Just False) $
117+ when (allowCustomUnicodeWidthTables config /= Just False) $
118 installWidthTable config
118 installWidthTable config
119
119
120 input <- inputForConfig config
120 input <- inputForConfig config
src/Graphics/Vty/Config.hs+4−4
@@ -149,7 +149,7 @@ data Config =
149 -- The default is the value of the TERM environment variable.
149 -- The default is the value of the TERM environment variable.
150 , termWidthMaps :: [(String, FilePath)]
150 , termWidthMaps :: [(String, FilePath)]
151 -- ^ Terminal width map files.
151 -- ^ Terminal width map files.
152− , allowCustomUnicodeWithTables :: Maybe Bool
152+ , allowCustomUnicodeWidthTables :: Maybe Bool
153 -- ^ Whether to permit custom Unicode width table loading.
153 -- ^ Whether to permit custom Unicode width table loading.
154 -- 'Just False' indicates that table loading should not be
154 -- 'Just False' indicates that table loading should not be
155 -- performed. Other values permit table loading.
155 -- performed. Other values permit table loading.
@@ -172,8 +172,8 @@ instance Semigroup Config where
172 , outputFd = outputFd c1 <|> outputFd c0
172 , outputFd = outputFd c1 <|> outputFd c0
173 , termName = termName c1 <|> termName c0
173 , termName = termName c1 <|> termName c0
174 , termWidthMaps = termWidthMaps c1 <|> termWidthMaps c0
174 , termWidthMaps = termWidthMaps c1 <|> termWidthMaps c0
175− , allowCustomUnicodeWithTables =
175+ , allowCustomUnicodeWidthTables =
176− allowCustomUnicodeWithTables c1 <|> allowCustomUnicodeWithTables c0
176+ allowCustomUnicodeWidthTables c1 <|> allowCustomUnicodeWidthTables c0
177 }
177 }
178
178
179instance Monoid Config where
179instance Monoid Config where
@@ -188,7 +188,7 @@ instance Monoid Config where
188 , outputFd = Nothing
188 , outputFd = Nothing
189 , termName = Nothing
189 , termName = Nothing
190 , termWidthMaps = []
190 , termWidthMaps = []
191− , allowCustomUnicodeWithTables = Nothing
191+ , allowCustomUnicodeWidthTables = Nothing
192 }
192 }
193#if !(MIN_VERSION_base(4,11,0))
193#if !(MIN_VERSION_base(4,11,0))
194 mappend = (<>)
194 mappend = (<>)