@@ -120,20 +120,25 @@ main = do
120 putStrLn $ "\nOutput table written to " <> outputPath
120 putStrLn $ "\nOutput table written to " <> outputPath
122 when (configUpdate config) $ do
122 when (configUpdate config) $ do
123+ let cPath = configPath config
123 Just tName <- currentTerminalName
124 Just tName <- currentTerminalName
125− result <- E.try $ addConfigWidthMap (configPath config) tName outputPath
126+ result <- E.try $ addConfigWidthMap cPath tName outputPath
127 putStrLn ""
128 putStrLn ""
128 case result of
129 case result of
129 Left (e::E.SomeException) -> do
130 Left (e::E.SomeException) -> do
130− putStrLn $ "Error updating Vty configuration at " <> (configPath config) <> ": " <> show e
131+ putStrLn $ "Error updating Vty configuration at " <> cPath <> ": " <>
131 exitFailure
133 exitFailure
132 Right ConfigurationCreated -> do
134 Right ConfigurationCreated -> do
133− putStrLn $ "Configuration file created: " <> (configPath config)
135+ putStrLn $ "Configuration file created: " <> cPath
134 Right ConfigurationModified -> do
136 Right ConfigurationModified -> do
135− putStrLn $ "Configuration file updated: " <> (configPath config)
137+ putStrLn $ "Configuration file updated: " <> cPath
136 Right (ConfigurationConflict other) -> do
138 Right (ConfigurationConflict other) -> do
137− putStrLn $ "Configuration file not updated: uses a different map for terminal type " <> tName <> ": " <> other
139+ putStrLn $ "Configuration file not updated: uses a different map " <>
140+ "for terminal type " <> tName <> ": " <> other
138 Right ConfigurationRedundant -> do
141 Right ConfigurationRedundant -> do
139− putStrLn $ "Configuration file not updated: configuration " <> (configPath config) <> " already contains map " <> outputPath <> " for TERM=" <> tName
142+ putStrLn $ "Configuration file not updated: configuration " <>
143+ cPath <> " already contains map " <> outputPath <>
144+ " for TERM=" <> tName