@@ -120,20 +120,25 @@ main = do
120120 putStrLn $ "\nOutput table written to " <> outputPath
121121
122122 when (configUpdate config) $ do
123+ let cPath = configPath config
123124 Just tName <- currentTerminalName
124125
125− result <- E.try $ addConfigWidthMap (configPath config) tName outputPath
126+ result <- E.try $ addConfigWidthMap cPath tName outputPath
126127
127128 putStrLn ""
128129 case result of
129130 Left (e::E.SomeException) -> do
130− putStrLn $ "Error updating Vty configuration at " <> (configPath config) <> ": " <> show e
131+ putStrLn $ "Error updating Vty configuration at " <> cPath <> ": " <>
132+ show e
131133 exitFailure
132134 Right ConfigurationCreated -> do
133− putStrLn $ "Configuration file created: " <> (configPath config)
135+ putStrLn $ "Configuration file created: " <> cPath
134136 Right ConfigurationModified -> do
135− putStrLn $ "Configuration file updated: " <> (configPath config)
137+ putStrLn $ "Configuration file updated: " <> cPath
136138 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
138141 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