module Graphics.UI.SDL.TTF.General
( init
, wasInit
, quit
) where
import Foreign
import Foreign.C.Types(CInt(..))
import Prelude hiding (init)
foreign import ccall unsafe "TTF_Init" ttfInit :: IO CInt
init :: IO Bool
init :: IO Bool
init = (CInt -> Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap (Bool -> Bool
not(Bool -> Bool) -> (CInt -> Bool) -> CInt -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
.CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool) IO CInt
ttfInit
foreign import ccall unsafe "TTF_WasInit" ttfWasInit :: IO CInt
wasInit :: IO Bool
wasInit :: IO Bool
wasInit = (CInt -> Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool IO CInt
ttfWasInit
foreign import ccall unsafe "TTF_Quit" quit :: IO ()