{-# LANGUAGE CApiFFI #-} {-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE TemplateHaskell #-} {-# OPTIONS_HADDOCK prune #-} module GarnetRs.Safe where import qualified Foreign as F import qualified Foreign.C as FC import qualified GHC.Ptr as Ptr import qualified HsBindgen.Runtime.Internal.CAPI import qualified HsBindgen.Runtime.Internal.HasFFIType import qualified HsBindgen.Runtime.PtrConst import Data.Void (Void) import GarnetRs import Prelude (IO) $(HsBindgen.Runtime.Internal.CAPI.addCSource (HsBindgen.Runtime.Internal.CAPI.unlines [ "#include " , "void hs_bindgen_433ea2a26af4e593 (" , " char const *arg1" , ")" , "{" , " hello(arg1);" , "}" , "void hs_bindgen_51157946af5519c9 (" , " struct T *arg1" , ")" , "{" , " hello_struct(*arg1);" , "}" , "void hs_bindgen_7de06f1fd827ca60 (" , " struct Shape *arg1" , ")" , "{" , " hello_shape(*arg1);" , "}" ])) -- __unique:__ @com_garnet_GarnetRs_Safe_hello@ foreign import ccall safe "hs_bindgen_433ea2a26af4e593" hs_bindgen_433ea2a26af4e593_base :: Ptr.Ptr Void -> IO () -- __unique:__ @com_garnet_GarnetRs_Safe_hello@ hs_bindgen_433ea2a26af4e593 :: HsBindgen.Runtime.PtrConst.PtrConst FC.CChar -> IO () hs_bindgen_433ea2a26af4e593 = HsBindgen.Runtime.Internal.HasFFIType.fromFFIType hs_bindgen_433ea2a26af4e593_base {-| __C declaration:__ @hello@ __defined at:__ @garnet_rs.h 32:6@ __exported by:__ @garnet_rs.h@ -} hello :: HsBindgen.Runtime.PtrConst.PtrConst FC.CChar -- ^ __C declaration:__ @c@ -> IO () hello = hs_bindgen_433ea2a26af4e593 -- __unique:__ @com_garnet_GarnetRs_Safe_hello_struct@ foreign import ccall safe "hs_bindgen_51157946af5519c9" hs_bindgen_51157946af5519c9_base :: Ptr.Ptr Void -> IO () -- __unique:__ @com_garnet_GarnetRs_Safe_hello_struct@ hs_bindgen_51157946af5519c9 :: Ptr.Ptr T -> IO () hs_bindgen_51157946af5519c9 = HsBindgen.Runtime.Internal.HasFFIType.fromFFIType hs_bindgen_51157946af5519c9_base {-| __C declaration:__ @hello_struct@ __defined at:__ @garnet_rs.h 34:6@ __exported by:__ @garnet_rs.h@ -} hello_struct :: T -- ^ __C declaration:__ @t@ -> IO () hello_struct = \t0 -> F.with t0 (\t1 -> hs_bindgen_51157946af5519c9 t1) -- __unique:__ @com_garnet_GarnetRs_Safe_hello_shape@ foreign import ccall safe "hs_bindgen_7de06f1fd827ca60" hs_bindgen_7de06f1fd827ca60_base :: Ptr.Ptr Void -> IO () -- __unique:__ @com_garnet_GarnetRs_Safe_hello_shape@ hs_bindgen_7de06f1fd827ca60 :: Ptr.Ptr Shape -> IO () hs_bindgen_7de06f1fd827ca60 = HsBindgen.Runtime.Internal.HasFFIType.fromFFIType hs_bindgen_7de06f1fd827ca60_base {-| __C declaration:__ @hello_shape@ __defined at:__ @garnet_rs.h 36:6@ __exported by:__ @garnet_rs.h@ -} hello_shape :: Shape -- ^ __C declaration:__ @s@ -> IO () hello_shape = \s0 -> F.with s0 (\s1 -> hs_bindgen_7de06f1fd827ca60 s1)