-- addDependentFile musl-include/x86_64/bits/alltypes.h -- addDependentFile musl-include/x86_64/stddef.h -- addDependentFile examples/golden/declarations/declarations_required_for_scoping.h -- #include -- void hs_bindgen_0d1c75136a36e326 ( -- A arg1 -- ) -- { -- f(arg1); -- } -- void hs_bindgen_93ed1628a0edf6b0 ( -- A arg1 -- ) -- { -- f(arg1); -- } -- /* test_declarationsdeclarations_requ_Example_get_f */ -- __attribute__ ((const)) -- void (*hs_bindgen_0d4da37880af2263 (void)) ( -- A arg1 -- ) -- { -- return &f; -- } {-| __C declaration:__ @A@ __defined at:__ @declarations\/declarations_required_for_scoping.h 5:9@ __exported by:__ @declarations\/declarations_required_for_scoping.h@ -} newtype A = A {unwrapA :: HsBindgen.Runtime.LibC.CSize} {- ^ __C declaration:__ @A@ __defined at:__ @declarations\/declarations_required_for_scoping.h 5:9@ __exported by:__ @declarations\/declarations_required_for_scoping.h@ -} deriving stock (Eq, Ord, Read, Show) deriving newtype (StaticSize, ReadRaw, WriteRaw, Storable, HasFFIType, Prim, Bitfield, Bits, Bounded, Enum, FiniteBits, Integral, Ix, Num, Real) instance TyEq ty (CFieldType A "unwrapA") => HasField "unwrapA" (Ptr A) (Ptr ty) where getField = fromPtr (Proxy @"unwrapA") instance HasCField A "unwrapA" where type CFieldType A "unwrapA" = HsBindgen.Runtime.LibC.CSize offset# = \_ -> \_ -> 0 -- __unique:__ @test_declarationsdeclarations_requ_Example_Safe_f@ foreign import ccall safe "hs_bindgen_0d1c75136a36e326" hs_bindgen_0d1c75136a36e326_base :: Word64 -> IO Unit -- __unique:__ @test_declarationsdeclarations_requ_Example_Safe_f@ hs_bindgen_0d1c75136a36e326 :: A -> IO Unit -- __unique:__ @test_declarationsdeclarations_requ_Example_Safe_f@ hs_bindgen_0d1c75136a36e326 = fromFFIType hs_bindgen_0d1c75136a36e326_base {-| __C declaration:__ @f@ __defined at:__ @declarations\/declarations_required_for_scoping.h 7:6@ __exported by:__ @declarations\/declarations_required_for_scoping.h@ -} f :: A -> IO Unit {-| __C declaration:__ @f@ __defined at:__ @declarations\/declarations_required_for_scoping.h 7:6@ __exported by:__ @declarations\/declarations_required_for_scoping.h@ -} f = hs_bindgen_0d1c75136a36e326 -- __unique:__ @test_declarationsdeclarations_requ_Example_Unsafe_f@ foreign import ccall unsafe "hs_bindgen_93ed1628a0edf6b0" hs_bindgen_93ed1628a0edf6b0_base :: Word64 -> IO Unit -- __unique:__ @test_declarationsdeclarations_requ_Example_Unsafe_f@ hs_bindgen_93ed1628a0edf6b0 :: A -> IO Unit -- __unique:__ @test_declarationsdeclarations_requ_Example_Unsafe_f@ hs_bindgen_93ed1628a0edf6b0 = fromFFIType hs_bindgen_93ed1628a0edf6b0_base {-| __C declaration:__ @f@ __defined at:__ @declarations\/declarations_required_for_scoping.h 7:6@ __exported by:__ @declarations\/declarations_required_for_scoping.h@ -} f :: A -> IO Unit {-| __C declaration:__ @f@ __defined at:__ @declarations\/declarations_required_for_scoping.h 7:6@ __exported by:__ @declarations\/declarations_required_for_scoping.h@ -} f = hs_bindgen_93ed1628a0edf6b0 -- __unique:__ @test_declarationsdeclarations_requ_Example_get_f@ foreign import ccall unsafe "hs_bindgen_0d4da37880af2263" hs_bindgen_0d4da37880af2263_base :: IO (FunPtr Void) -- __unique:__ @test_declarationsdeclarations_requ_Example_get_f@ hs_bindgen_0d4da37880af2263 :: IO (FunPtr (A -> IO Unit)) -- __unique:__ @test_declarationsdeclarations_requ_Example_get_f@ hs_bindgen_0d4da37880af2263 = fromFFIType hs_bindgen_0d4da37880af2263_base {-# NOINLINE f #-} {-| __C declaration:__ @f@ __defined at:__ @declarations\/declarations_required_for_scoping.h 7:6@ __exported by:__ @declarations\/declarations_required_for_scoping.h@ -} f :: FunPtr (A -> IO Unit) {-| __C declaration:__ @f@ __defined at:__ @declarations\/declarations_required_for_scoping.h 7:6@ __exported by:__ @declarations\/declarations_required_for_scoping.h@ -} f = unsafePerformIO hs_bindgen_0d4da37880af2263