    -----------------------------------------------------------------------------
    -- |
    -- Module      :  Graphics.UI.SDL.TTF.General
    -- Copyright   :  (c) David Himmelstrup 2005
    -- License     :  BSD-like
    --
    -- Maintainer  :  lemmih@gmail.com
    -- Stability   :  provisional
    -- Portability :  portable
    --
    -----------------------------------------------------------------------------
    module Graphics.UI.SDL.TTF.General
        ( init
        , wasInit
        , quit
        ) where

    import Foreign
    import Foreign.C.Types(CInt(..))

    -- import Graphics.UI.SDL.General (failWithError)

    import Prelude hiding (init)

    -- int TTF_Init()
    foreign import ccall unsafe "TTF_Init" ttfInit :: IO CInt
    init :: IO Bool
    init :: IO Bool
    init = (CInt -> Bool) -> IO CInt -> IO Bool
    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

    --int TTF_WasInit()
    foreign import ccall unsafe "TTF_WasInit" ttfWasInit :: IO CInt
    wasInit :: IO Bool
    wasInit :: IO Bool
    wasInit = (CInt -> Bool) -> IO CInt -> IO Bool
    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

    -- void TTF_Quit()
    foreign import ccall unsafe "TTF_Quit" quit :: IO ()