@@ -149,12 +149,15 @@ installWidthTable c = do
149149 Nothing ->
150150 doLog "Current terminal not found in custom character width mapping list"
151151 Just path -> do
152− tableResult <- readUnicodeWidthTable path
152+ tableResult <- E.try $ readUnicodeWidthTable path
153153 case tableResult of
154− Left msg ->
154+ Left (e::E.SomeException) ->
155+ doLog $ "Error reading custom character width table " <>
156+ "at " <> show path <> ": " <> show e
157+ Right (Left msg) ->
155158 doLog $ "Error reading custom character width table " <>
156159 "at " <> show path <> ": " <> msg
157− Right table -> do
160+ Right (Right table) -> do
158161 installResult <- E.try $ installUnicodeWidthTable table
159162 case installResult of
160163 Left (e::E.SomeException) ->