{-# LINE 1 "FreeType/Core/Version.hsc" #-}
{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE PatternSynonyms #-}
module FreeType.Core.Version
(
ft_Library_Version
, pattern FREETYPE_MINOR
, pattern FREETYPE_MAJOR
, pattern FREETYPE_PATCH
)
where
import FreeType.Core.Base.Types
import FreeType.Core.Types.Types
import FreeType.Core.Version.Internal
import Foreign.Marshal.Alloc
import Foreign.Storable
ft_Library_Version
:: FT_Library
-> IO (FT_Int, FT_Int, FT_Int)
ft_Library_Version lib =
alloca $ \majorPtr ->
alloca $ \minorPtr ->
alloca $ \patchPtr -> do
ft_Library_Version' lib majorPtr minorPtr patchPtr
(,,)
<$> peek majorPtr
<*> peek minorPtr
<*> peek patchPtr
pattern FREETYPE_MAJOR
, FREETYPE_MINOR
, FREETYPE_PATCH
:: (Eq a, Num a) => a
pattern FREETYPE_MAJOR = 2
{-# LINE 57 "FreeType/Core/Version.hsc" #-}
pattern FREETYPE_MINOR = 10
{-# LINE 58 "FreeType/Core/Version.hsc" #-}
pattern FREETYPE_PATCH = 1
{-# LINE 59 "FreeType/Core/Version.hsc" #-}