{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.EndianShims.FunPtr (
SDL3.Sys.Bindgen.EndianShims.FunPtr.lithon_SDL_Swap16,
SDL3.Sys.Bindgen.EndianShims.FunPtr.lithon_SDL_Swap32,
SDL3.Sys.Bindgen.EndianShims.FunPtr.lithon_SDL_Swap64,
SDL3.Sys.Bindgen.EndianShims.FunPtr.lithon_SDL_Swap16LE,
SDL3.Sys.Bindgen.EndianShims.FunPtr.lithon_SDL_Swap32LE,
SDL3.Sys.Bindgen.EndianShims.FunPtr.lithon_SDL_Swap64LE,
SDL3.Sys.Bindgen.EndianShims.FunPtr.lithon_SDL_SwapFloatLE,
SDL3.Sys.Bindgen.EndianShims.FunPtr.lithon_SDL_Swap16BE,
SDL3.Sys.Bindgen.EndianShims.FunPtr.lithon_SDL_Swap32BE,
SDL3.Sys.Bindgen.EndianShims.FunPtr.lithon_SDL_Swap64BE,
SDL3.Sys.Bindgen.EndianShims.FunPtr.lithon_SDL_SwapFloatBE,
)
where
import Prelude (IO, fmap)
import HsBindgen.Runtime.Support qualified as BG
import HsBindgen.Runtime.Support.CAPI qualified
import SDL3.Sys.Bindgen.Stdinc qualified
$( HsBindgen.Runtime.Support.CAPI.addCSource
( HsBindgen.Runtime.Support.CAPI.unlines
[ "#define SDL_MAIN_HANDLED"
, "#define SDL_SLOW_MEMCPY"
, "#define SDL_SLOW_MEMMOVE"
, "#define SDL_SLOW_MEMSET"
, "#include <sdl3-bindgen-sys/SDL_endian_shims.h>"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.EndianShims_get_lithon_SDL_Swap16 */"
, "__attribute__ ((const))"
, "Uint16 (*hs_bindgen_7b8c5f080d1ded5e (void)) ("
, " Uint16 arg1"
, ")"
, "{"
, " return &lithon_SDL_Swap16;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.EndianShims_get_lithon_SDL_Swap32 */"
, "__attribute__ ((const))"
, "Uint32 (*hs_bindgen_72820f6cbd65d197 (void)) ("
, " Uint32 arg1"
, ")"
, "{"
, " return &lithon_SDL_Swap32;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.EndianShims_get_lithon_SDL_Swap64 */"
, "__attribute__ ((const))"
, "Uint64 (*hs_bindgen_a6f1eb5f1830cff7 (void)) ("
, " Uint64 arg1"
, ")"
, "{"
, " return &lithon_SDL_Swap64;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.EndianShims_get_lithon_SDL_Swap16LE */"
, "__attribute__ ((const))"
, "Uint16 (*hs_bindgen_6da14ac6e18900ea (void)) ("
, " Uint16 arg1"
, ")"
, "{"
, " return &lithon_SDL_Swap16LE;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.EndianShims_get_lithon_SDL_Swap32LE */"
, "__attribute__ ((const))"
, "Uint32 (*hs_bindgen_7565149a49ae8b75 (void)) ("
, " Uint32 arg1"
, ")"
, "{"
, " return &lithon_SDL_Swap32LE;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.EndianShims_get_lithon_SDL_Swap64LE */"
, "__attribute__ ((const))"
, "Uint64 (*hs_bindgen_538b6a0639e3f6b8 (void)) ("
, " Uint64 arg1"
, ")"
, "{"
, " return &lithon_SDL_Swap64LE;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.EndianShims_get_lithon_SDL_SwapFloatLE */"
, "__attribute__ ((const))"
, "float (*hs_bindgen_37fcf9d0fa6d7f0b (void)) ("
, " float arg1"
, ")"
, "{"
, " return &lithon_SDL_SwapFloatLE;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.EndianShims_get_lithon_SDL_Swap16BE */"
, "__attribute__ ((const))"
, "Uint16 (*hs_bindgen_e0a1dc754a468319 (void)) ("
, " Uint16 arg1"
, ")"
, "{"
, " return &lithon_SDL_Swap16BE;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.EndianShims_get_lithon_SDL_Swap32BE */"
, "__attribute__ ((const))"
, "Uint32 (*hs_bindgen_d51d24c0ad9eeb3d (void)) ("
, " Uint32 arg1"
, ")"
, "{"
, " return &lithon_SDL_Swap32BE;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.EndianShims_get_lithon_SDL_Swap64BE */"
, "__attribute__ ((const))"
, "Uint64 (*hs_bindgen_75711d840ca571fa (void)) ("
, " Uint64 arg1"
, ")"
, "{"
, " return &lithon_SDL_Swap64BE;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.EndianShims_get_lithon_SDL_SwapFloatBE */"
, "__attribute__ ((const))"
, "float (*hs_bindgen_d1bcd6541629959e (void)) ("
, " float arg1"
, ")"
, "{"
, " return &lithon_SDL_SwapFloatBE;"
, "}"
]
)
)
foreign import ccall unsafe "hs_bindgen_7b8c5f080d1ded5e"
hs_bindgen_7b8c5f080d1ded5e_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_7b8c5f080d1ded5e
:: IO (BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint16 -> IO SDL3.Sys.Bindgen.Stdinc.Uint16))
hs_bindgen_7b8c5f080d1ded5e :: IO (FunPtr (Uint16 -> IO Uint16))
hs_bindgen_7b8c5f080d1ded5e =
(FunPtr Void -> FunPtr (Uint16 -> IO Uint16))
-> IO (FunPtr Void) -> IO (FunPtr (Uint16 -> IO Uint16))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void -> FunPtr (Uint16 -> IO Uint16)
FFIType (FunPtr (Uint16 -> IO Uint16))
-> FunPtr (Uint16 -> IO Uint16)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_7b8c5f080d1ded5e_base
{-# NOINLINE lithon_SDL_Swap16 #-}
lithon_SDL_Swap16 :: BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint16 -> IO SDL3.Sys.Bindgen.Stdinc.Uint16)
lithon_SDL_Swap16 :: FunPtr (Uint16 -> IO Uint16)
lithon_SDL_Swap16 =
IO (FunPtr (Uint16 -> IO Uint16)) -> FunPtr (Uint16 -> IO Uint16)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (Uint16 -> IO Uint16))
hs_bindgen_7b8c5f080d1ded5e
foreign import ccall unsafe "hs_bindgen_72820f6cbd65d197"
hs_bindgen_72820f6cbd65d197_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_72820f6cbd65d197
:: IO (BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint32 -> IO SDL3.Sys.Bindgen.Stdinc.Uint32))
hs_bindgen_72820f6cbd65d197 :: IO (FunPtr (Uint32 -> IO Uint32))
hs_bindgen_72820f6cbd65d197 =
(FunPtr Void -> FunPtr (Uint32 -> IO Uint32))
-> IO (FunPtr Void) -> IO (FunPtr (Uint32 -> IO Uint32))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void -> FunPtr (Uint32 -> IO Uint32)
FFIType (FunPtr (Uint32 -> IO Uint32))
-> FunPtr (Uint32 -> IO Uint32)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_72820f6cbd65d197_base
{-# NOINLINE lithon_SDL_Swap32 #-}
lithon_SDL_Swap32 :: BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint32 -> IO SDL3.Sys.Bindgen.Stdinc.Uint32)
lithon_SDL_Swap32 :: FunPtr (Uint32 -> IO Uint32)
lithon_SDL_Swap32 =
IO (FunPtr (Uint32 -> IO Uint32)) -> FunPtr (Uint32 -> IO Uint32)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (Uint32 -> IO Uint32))
hs_bindgen_72820f6cbd65d197
foreign import ccall unsafe "hs_bindgen_a6f1eb5f1830cff7"
hs_bindgen_a6f1eb5f1830cff7_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_a6f1eb5f1830cff7
:: IO (BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint64 -> IO SDL3.Sys.Bindgen.Stdinc.Uint64))
hs_bindgen_a6f1eb5f1830cff7 :: IO (FunPtr (Uint64 -> IO Uint64))
hs_bindgen_a6f1eb5f1830cff7 =
(FunPtr Void -> FunPtr (Uint64 -> IO Uint64))
-> IO (FunPtr Void) -> IO (FunPtr (Uint64 -> IO Uint64))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void -> FunPtr (Uint64 -> IO Uint64)
FFIType (FunPtr (Uint64 -> IO Uint64))
-> FunPtr (Uint64 -> IO Uint64)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_a6f1eb5f1830cff7_base
{-# NOINLINE lithon_SDL_Swap64 #-}
lithon_SDL_Swap64 :: BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint64 -> IO SDL3.Sys.Bindgen.Stdinc.Uint64)
lithon_SDL_Swap64 :: FunPtr (Uint64 -> IO Uint64)
lithon_SDL_Swap64 =
IO (FunPtr (Uint64 -> IO Uint64)) -> FunPtr (Uint64 -> IO Uint64)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (Uint64 -> IO Uint64))
hs_bindgen_a6f1eb5f1830cff7
foreign import ccall unsafe "hs_bindgen_6da14ac6e18900ea"
hs_bindgen_6da14ac6e18900ea_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_6da14ac6e18900ea
:: IO (BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint16 -> IO SDL3.Sys.Bindgen.Stdinc.Uint16))
hs_bindgen_6da14ac6e18900ea :: IO (FunPtr (Uint16 -> IO Uint16))
hs_bindgen_6da14ac6e18900ea =
(FunPtr Void -> FunPtr (Uint16 -> IO Uint16))
-> IO (FunPtr Void) -> IO (FunPtr (Uint16 -> IO Uint16))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void -> FunPtr (Uint16 -> IO Uint16)
FFIType (FunPtr (Uint16 -> IO Uint16))
-> FunPtr (Uint16 -> IO Uint16)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_6da14ac6e18900ea_base
{-# NOINLINE lithon_SDL_Swap16LE #-}
lithon_SDL_Swap16LE
:: BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint16 -> IO SDL3.Sys.Bindgen.Stdinc.Uint16)
lithon_SDL_Swap16LE :: FunPtr (Uint16 -> IO Uint16)
lithon_SDL_Swap16LE =
IO (FunPtr (Uint16 -> IO Uint16)) -> FunPtr (Uint16 -> IO Uint16)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (Uint16 -> IO Uint16))
hs_bindgen_6da14ac6e18900ea
foreign import ccall unsafe "hs_bindgen_7565149a49ae8b75"
hs_bindgen_7565149a49ae8b75_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_7565149a49ae8b75
:: IO (BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint32 -> IO SDL3.Sys.Bindgen.Stdinc.Uint32))
hs_bindgen_7565149a49ae8b75 :: IO (FunPtr (Uint32 -> IO Uint32))
hs_bindgen_7565149a49ae8b75 =
(FunPtr Void -> FunPtr (Uint32 -> IO Uint32))
-> IO (FunPtr Void) -> IO (FunPtr (Uint32 -> IO Uint32))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void -> FunPtr (Uint32 -> IO Uint32)
FFIType (FunPtr (Uint32 -> IO Uint32))
-> FunPtr (Uint32 -> IO Uint32)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_7565149a49ae8b75_base
{-# NOINLINE lithon_SDL_Swap32LE #-}
lithon_SDL_Swap32LE
:: BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint32 -> IO SDL3.Sys.Bindgen.Stdinc.Uint32)
lithon_SDL_Swap32LE :: FunPtr (Uint32 -> IO Uint32)
lithon_SDL_Swap32LE =
IO (FunPtr (Uint32 -> IO Uint32)) -> FunPtr (Uint32 -> IO Uint32)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (Uint32 -> IO Uint32))
hs_bindgen_7565149a49ae8b75
foreign import ccall unsafe "hs_bindgen_538b6a0639e3f6b8"
hs_bindgen_538b6a0639e3f6b8_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_538b6a0639e3f6b8
:: IO (BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint64 -> IO SDL3.Sys.Bindgen.Stdinc.Uint64))
hs_bindgen_538b6a0639e3f6b8 :: IO (FunPtr (Uint64 -> IO Uint64))
hs_bindgen_538b6a0639e3f6b8 =
(FunPtr Void -> FunPtr (Uint64 -> IO Uint64))
-> IO (FunPtr Void) -> IO (FunPtr (Uint64 -> IO Uint64))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void -> FunPtr (Uint64 -> IO Uint64)
FFIType (FunPtr (Uint64 -> IO Uint64))
-> FunPtr (Uint64 -> IO Uint64)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_538b6a0639e3f6b8_base
{-# NOINLINE lithon_SDL_Swap64LE #-}
lithon_SDL_Swap64LE
:: BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint64 -> IO SDL3.Sys.Bindgen.Stdinc.Uint64)
lithon_SDL_Swap64LE :: FunPtr (Uint64 -> IO Uint64)
lithon_SDL_Swap64LE =
IO (FunPtr (Uint64 -> IO Uint64)) -> FunPtr (Uint64 -> IO Uint64)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (Uint64 -> IO Uint64))
hs_bindgen_538b6a0639e3f6b8
foreign import ccall unsafe "hs_bindgen_37fcf9d0fa6d7f0b"
hs_bindgen_37fcf9d0fa6d7f0b_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_37fcf9d0fa6d7f0b :: IO (BG.FunPtr (BG.CFloat -> IO BG.CFloat))
hs_bindgen_37fcf9d0fa6d7f0b :: IO (FunPtr (CFloat -> IO CFloat))
hs_bindgen_37fcf9d0fa6d7f0b =
(FunPtr Void -> FunPtr (CFloat -> IO CFloat))
-> IO (FunPtr Void) -> IO (FunPtr (CFloat -> IO CFloat))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void -> FunPtr (CFloat -> IO CFloat)
FFIType (FunPtr (CFloat -> IO CFloat))
-> FunPtr (CFloat -> IO CFloat)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_37fcf9d0fa6d7f0b_base
{-# NOINLINE lithon_SDL_SwapFloatLE #-}
lithon_SDL_SwapFloatLE :: BG.FunPtr (BG.CFloat -> IO BG.CFloat)
lithon_SDL_SwapFloatLE :: FunPtr (CFloat -> IO CFloat)
lithon_SDL_SwapFloatLE =
IO (FunPtr (CFloat -> IO CFloat)) -> FunPtr (CFloat -> IO CFloat)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (CFloat -> IO CFloat))
hs_bindgen_37fcf9d0fa6d7f0b
foreign import ccall unsafe "hs_bindgen_e0a1dc754a468319"
hs_bindgen_e0a1dc754a468319_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_e0a1dc754a468319
:: IO (BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint16 -> IO SDL3.Sys.Bindgen.Stdinc.Uint16))
hs_bindgen_e0a1dc754a468319 :: IO (FunPtr (Uint16 -> IO Uint16))
hs_bindgen_e0a1dc754a468319 =
(FunPtr Void -> FunPtr (Uint16 -> IO Uint16))
-> IO (FunPtr Void) -> IO (FunPtr (Uint16 -> IO Uint16))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void -> FunPtr (Uint16 -> IO Uint16)
FFIType (FunPtr (Uint16 -> IO Uint16))
-> FunPtr (Uint16 -> IO Uint16)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_e0a1dc754a468319_base
{-# NOINLINE lithon_SDL_Swap16BE #-}
lithon_SDL_Swap16BE
:: BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint16 -> IO SDL3.Sys.Bindgen.Stdinc.Uint16)
lithon_SDL_Swap16BE :: FunPtr (Uint16 -> IO Uint16)
lithon_SDL_Swap16BE =
IO (FunPtr (Uint16 -> IO Uint16)) -> FunPtr (Uint16 -> IO Uint16)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (Uint16 -> IO Uint16))
hs_bindgen_e0a1dc754a468319
foreign import ccall unsafe "hs_bindgen_d51d24c0ad9eeb3d"
hs_bindgen_d51d24c0ad9eeb3d_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_d51d24c0ad9eeb3d
:: IO (BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint32 -> IO SDL3.Sys.Bindgen.Stdinc.Uint32))
hs_bindgen_d51d24c0ad9eeb3d :: IO (FunPtr (Uint32 -> IO Uint32))
hs_bindgen_d51d24c0ad9eeb3d =
(FunPtr Void -> FunPtr (Uint32 -> IO Uint32))
-> IO (FunPtr Void) -> IO (FunPtr (Uint32 -> IO Uint32))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void -> FunPtr (Uint32 -> IO Uint32)
FFIType (FunPtr (Uint32 -> IO Uint32))
-> FunPtr (Uint32 -> IO Uint32)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_d51d24c0ad9eeb3d_base
{-# NOINLINE lithon_SDL_Swap32BE #-}
lithon_SDL_Swap32BE
:: BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint32 -> IO SDL3.Sys.Bindgen.Stdinc.Uint32)
lithon_SDL_Swap32BE :: FunPtr (Uint32 -> IO Uint32)
lithon_SDL_Swap32BE =
IO (FunPtr (Uint32 -> IO Uint32)) -> FunPtr (Uint32 -> IO Uint32)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (Uint32 -> IO Uint32))
hs_bindgen_d51d24c0ad9eeb3d
foreign import ccall unsafe "hs_bindgen_75711d840ca571fa"
hs_bindgen_75711d840ca571fa_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_75711d840ca571fa
:: IO (BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint64 -> IO SDL3.Sys.Bindgen.Stdinc.Uint64))
hs_bindgen_75711d840ca571fa :: IO (FunPtr (Uint64 -> IO Uint64))
hs_bindgen_75711d840ca571fa =
(FunPtr Void -> FunPtr (Uint64 -> IO Uint64))
-> IO (FunPtr Void) -> IO (FunPtr (Uint64 -> IO Uint64))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void -> FunPtr (Uint64 -> IO Uint64)
FFIType (FunPtr (Uint64 -> IO Uint64))
-> FunPtr (Uint64 -> IO Uint64)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_75711d840ca571fa_base
{-# NOINLINE lithon_SDL_Swap64BE #-}
lithon_SDL_Swap64BE
:: BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint64 -> IO SDL3.Sys.Bindgen.Stdinc.Uint64)
lithon_SDL_Swap64BE :: FunPtr (Uint64 -> IO Uint64)
lithon_SDL_Swap64BE =
IO (FunPtr (Uint64 -> IO Uint64)) -> FunPtr (Uint64 -> IO Uint64)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (Uint64 -> IO Uint64))
hs_bindgen_75711d840ca571fa
foreign import ccall unsafe "hs_bindgen_d1bcd6541629959e"
hs_bindgen_d1bcd6541629959e_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_d1bcd6541629959e :: IO (BG.FunPtr (BG.CFloat -> IO BG.CFloat))
hs_bindgen_d1bcd6541629959e :: IO (FunPtr (CFloat -> IO CFloat))
hs_bindgen_d1bcd6541629959e =
(FunPtr Void -> FunPtr (CFloat -> IO CFloat))
-> IO (FunPtr Void) -> IO (FunPtr (CFloat -> IO CFloat))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void -> FunPtr (CFloat -> IO CFloat)
FFIType (FunPtr (CFloat -> IO CFloat))
-> FunPtr (CFloat -> IO CFloat)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_d1bcd6541629959e_base
{-# NOINLINE lithon_SDL_SwapFloatBE #-}
lithon_SDL_SwapFloatBE :: BG.FunPtr (BG.CFloat -> IO BG.CFloat)
lithon_SDL_SwapFloatBE :: FunPtr (CFloat -> IO CFloat)
lithon_SDL_SwapFloatBE =
IO (FunPtr (CFloat -> IO CFloat)) -> FunPtr (CFloat -> IO CFloat)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (CFloat -> IO CFloat))
hs_bindgen_d1bcd6541629959e