@@ -10,7 +10,7 @@ import System.Environment (getArgs, getProgName)
10import System.Exit (exitFailure)
10import System.Exit (exitFailure)
11import System.Console.GetOpt
11import System.Console.GetOpt
13−import Graphics.Vty.Config (terminalWidthTablePath, currentTerminalName)
13+import Graphics.Vty.Config (terminalWidthTablePath, currentTerminalName, vtyConfigPath)
14import Graphics.Vty.UnicodeWidthTable.IO
14import Graphics.Vty.UnicodeWidthTable.IO
15import Graphics.Vty.UnicodeWidthTable.Query
15import Graphics.Vty.UnicodeWidthTable.Query
@@ -87,7 +87,7 @@ main = do
87 configPath <- vtyConfigPath
87 configPath <- vtyConfigPath
88 putStrLn ""
88 putStrLn ""
89 putStrLn "To configure your Vty-based applications to use this map, add"
89 putStrLn "To configure your Vty-based applications to use this map, add"
90− putStrLn "the following line to " <> configPath <> ":"
90+ putStrLn $ "the following line to " <> configPath <> ":"
91 putStrLn ""
91 putStrLn ""
92 putStrLn $ " widthMap " <> show tName <> " " <> show outputPath
92 putStrLn $ " widthMap " <> show tName <> " " <> show outputPath
93 putStrLn ""
93 putStrLn ""