@@ -20,10 +20,13 @@ foreign import ccall unsafe "vty_set_custom_table_range"
2020foreign import ccall unsafe "vty_activate_custom_table"
2121 activateCustomTable :: IO Int
2222
23−-- | Returns 1 if and only if a custom table has been allocated and
24−-- marked as ready for use. Returns 0 otherwise.
2523foreign import ccall unsafe "vty_custom_table_ready"
26− isCustomTableReady :: IO Int
24+ c_isCustomTableReady :: IO Int
25+
26+-- | Returns True if and only if a custom table has been allocated and
27+-- marked as ready for use. Returns False otherwise.
28+isCustomTableReady :: IO Bool
29+isCustomTableReady = (== 1) <$> c_isCustomTableReady
2730
2831-- This is the size of the allocated custom character width table, in
2932-- character slots. It's important that this be large enough to hold all