ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-12-01 14:36:27 +03:00
Code Issues Projects Releases Wiki Activity

installUnicodeWidthTable: use throwIO, not throw

Browse Source
This commit is contained in:
Jonathan Daugherty 2020-03-09 13:45:02 -07:00
parent 9a9aeb65ea
commit 0d2226cb1a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Graphics/Vty/UnicodeWidthTable/Install.hs
View File

@ -101,7 +101,7 @@ installUnicodeWidthTable :: UnicodeWidthTable -> IO ()
installUnicodeWidthTable table = withInstallLock $ do
initResult <- initCustomTable tableSize
when (initResult /= 0) $
E.throw $ TableInitFailure initResult tableSize
E.throwIO $ TableInitFailure initResult tableSize
forM_ (unicodeWidthTableRanges table) $ \r -> do
result <- setCustomTableRange (rangeStart r)
@ -110,11 +110,11 @@ installUnicodeWidthTable table = withInstallLock $ do
when (result /= 0) $ do
deallocateCustomTable
E.throw $ TableRangeFailure result r
E.throwIO $ TableRangeFailure result r
actResult <- activateCustomTable
when (actResult /= 0) $
E.throw $ TableActivationFailure actResult
E.throwIO $ TableActivationFailure actResult
------------------------------------------------------------------------
-- C imports