@@ -101,7 +101,7 @@ installUnicodeWidthTable :: UnicodeWidthTable -> IO ()
101101installUnicodeWidthTable table = withInstallLock $ do
102102 initResult <- initCustomTable tableSize
103103 when (initResult /= 0) $
104− E.throw $ TableInitFailure initResult tableSize
104+ E.throwIO $ TableInitFailure initResult tableSize
105105
106106 forM_ (unicodeWidthTableRanges table) $ \r -> do
107107 result <- setCustomTableRange (rangeStart r)
@@ -110,11 +110,11 @@ installUnicodeWidthTable table = withInstallLock $ do
110110
111111 when (result /= 0) $ do
112112 deallocateCustomTable
113− E.throw $ TableRangeFailure result r
113+ E.throwIO $ TableRangeFailure result r
114114
115115 actResult <- activateCustomTable
116116 when (actResult /= 0) $
117− E.throw $ TableActivationFailure actResult
117+ E.throwIO $ TableActivationFailure actResult
118118
119119------------------------------------------------------------------------
120120-- C imports