Naming nit

This commit is contained in:
Jonathan Daugherty 2020-03-03 16:18:32 -08:00
parent e07f287d07
commit c1e534b991

View File

@ -126,14 +126,14 @@ mkVty appConfig = do
config <- (<> appConfig) <$> userConfig
when (allowCustomUnicodeWidthTables config /= Just False) $
installWidthTable config
installCustomWidthTable config
input <- inputForConfig config
out <- outputForConfig config
internalMkVty input out
installWidthTable :: Config -> IO ()
installWidthTable c = do
installCustomWidthTable :: Config -> IO ()
installCustomWidthTable c = do
let doLog s = case debugLog c of
Nothing -> return ()
Just path -> appendFile path $ "installWidthTable: " <> s <> "\n"