ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-11-29 08:49:40 +03:00
Code Issues Projects Releases Wiki Activity

Graphics.Vty.UnicodeWidthTable.Install: use withMVar to avoid boilerplate

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

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

@ -9,7 +9,8 @@ where
import Control.Monad (when, forM_)
import qualified Control.Exception as E
import Control.Concurrent.MVar (MVar, newMVar, takeMVar, putMVar)
import GHC.Conc.Sync (withMVar)
import Control.Concurrent.MVar (MVar, newMVar)
import Data.Word (Word8, Word32)
#if !(MIN_VERSION_base(4,11,0))
import Data.Semigroup ((<>))
@ -31,14 +32,7 @@ isCustomTableReady :: IO Bool
isCustomTableReady = withInstallLock $ (== 1) <$> c_isCustomTableReady
withInstallLock :: IO a -> IO a
withInstallLock act =
E.bracket takeInstallLock (const releaseInstallLock) $ const act
takeInstallLock :: IO ()
takeInstallLock = takeMVar installLock
releaseInstallLock :: IO ()
releaseInstallLock = putMVar installLock ()
withInstallLock act = withMVar installLock $ const act
-- This is the size of the allocated custom character width table, in
-- character slots. It's important that this be large enough to hold all