hs-bindgen-1.0.0.0: test-artefacts/fixtures/globals/untagged/th.txt
-- addDependentFile test-artefacts/headers/golden/globals/untagged.h
-- #include <globals/untagged.h>
-- /* test_globalsuntagged_Example_get_untaggedPoint */
-- __attribute__ ((const))
-- void *hs_bindgen_d77490b2fc5f4d07 (void)
-- {
-- return &untaggedPoint;
-- }
-- /* test_globalsuntagged_Example_get_untaggedPair */
-- __attribute__ ((const))
-- void *hs_bindgen_0c5d4010212a5c60 (void)
-- {
-- return &untaggedPair;
-- }
-- /* test_globalsuntagged_Example_get_untaggedEnum */
-- __attribute__ ((const))
-- void *hs_bindgen_6913d0b9652bbf6f (void)
-- {
-- return &untaggedEnum;
-- }
-- /* test_globalsuntagged_Example_get_untaggedEnumCoords */
-- __attribute__ ((const))
-- void *hs_bindgen_d7232446972b888a (void)
-- {
-- return &untaggedEnumCoords;
-- }
-- /* test_globalsuntagged_Example_get_A */
-- __attribute__ ((const))
-- void *hs_bindgen_9d7d1fc84d6966f1 (void)
-- {
-- return &A;
-- }
-- /* test_globalsuntagged_Example_get_B */
-- __attribute__ ((const))
-- void const *hs_bindgen_38f1407628b3330b (void)
-- {
-- return &B;
-- }
-- /* test_globalsuntagged_Example_get_C */
-- __attribute__ ((const))
-- void *hs_bindgen_492f8d9f3437df29 (void)
-- {
-- return &C;
-- }
{-| __C declaration:__ @struct \@untaggedPoint@
__defined at:__ @globals\/untagged.h 12:1@
__exported by:__ @globals\/untagged.h@
-}
data UntaggedPoint
= UntaggedPoint {untaggedPoint_x :: CInt
{- ^ __C declaration:__ @x@
__defined at:__ @globals\/untagged.h 12:14@
__exported by:__ @globals\/untagged.h@
-},
untaggedPoint_y :: CInt
{- ^ __C declaration:__ @y@
__defined at:__ @globals\/untagged.h 12:21@
__exported by:__ @globals\/untagged.h@
-}}
deriving stock (Eq, Generic, Show)
instance StaticSize UntaggedPoint
where staticSizeOf = \_ -> 8 :: Int
staticAlignment = \_ -> 4 :: Int
instance ReadRaw UntaggedPoint
where readRaw = \ptr_0 -> (pure UntaggedPoint <*> readRaw (Proxy @"untaggedPoint_x") ptr_0) <*> readRaw (Proxy @"untaggedPoint_y") ptr_0
instance WriteRaw UntaggedPoint
where writeRaw = \ptr_0 -> \s_1 -> case s_1 of
UntaggedPoint untaggedPoint_x_2
untaggedPoint_y_3 -> writeRaw (Proxy @"untaggedPoint_x") ptr_0 untaggedPoint_x_2 >> writeRaw (Proxy @"untaggedPoint_y") ptr_0 untaggedPoint_y_3
deriving via (EquivStorable UntaggedPoint) instance Storable UntaggedPoint
deriving via (IsStructViaReadRaw UntaggedPoint) instance IsStruct UntaggedPoint
instance (~) ty CInt => HasField "untaggedPoint_x" UntaggedPoint ty
where hasField = \x_0 -> (\y_1 -> UntaggedPoint{untaggedPoint_x = y_1,
untaggedPoint_y = getField @"untaggedPoint_y" x_0},
getField @"untaggedPoint_x" x_0)
instance (~) ty CInt =>
HasField "untaggedPoint_x" (Ptr UntaggedPoint) (Ptr ty)
where getField = fromPtr (Proxy @"untaggedPoint_x")
instance HasCField UntaggedPoint "untaggedPoint_x"
where type CFieldType UntaggedPoint "untaggedPoint_x" = CInt
offset# = \_ -> \_ -> 0
instance (~) ty CInt => HasField "untaggedPoint_y" UntaggedPoint ty
where hasField = \x_0 -> (\y_1 -> UntaggedPoint{untaggedPoint_y = y_1,
untaggedPoint_x = getField @"untaggedPoint_x" x_0},
getField @"untaggedPoint_y" x_0)
instance (~) ty CInt =>
HasField "untaggedPoint_y" (Ptr UntaggedPoint) (Ptr ty)
where getField = fromPtr (Proxy @"untaggedPoint_y")
instance HasCField UntaggedPoint "untaggedPoint_y"
where type CFieldType UntaggedPoint "untaggedPoint_y" = CInt
offset# = \_ -> \_ -> 4
{-| __C declaration:__ @struct \@untaggedPair@
__defined at:__ @globals\/untagged.h 14:1@
__exported by:__ @globals\/untagged.h@
-}
data UntaggedPair
= UntaggedPair {untaggedPair_a :: CInt
{- ^ __C declaration:__ @a@
__defined at:__ @globals\/untagged.h 14:14@
__exported by:__ @globals\/untagged.h@
-},
untaggedPair_b :: CInt
{- ^ __C declaration:__ @b@
__defined at:__ @globals\/untagged.h 14:21@
__exported by:__ @globals\/untagged.h@
-}}
deriving stock (Eq, Generic, Show)
instance StaticSize UntaggedPair
where staticSizeOf = \_ -> 8 :: Int
staticAlignment = \_ -> 4 :: Int
instance ReadRaw UntaggedPair
where readRaw = \ptr_0 -> (pure UntaggedPair <*> readRaw (Proxy @"untaggedPair_a") ptr_0) <*> readRaw (Proxy @"untaggedPair_b") ptr_0
instance WriteRaw UntaggedPair
where writeRaw = \ptr_0 -> \s_1 -> case s_1 of
UntaggedPair untaggedPair_a_2
untaggedPair_b_3 -> writeRaw (Proxy @"untaggedPair_a") ptr_0 untaggedPair_a_2 >> writeRaw (Proxy @"untaggedPair_b") ptr_0 untaggedPair_b_3
deriving via (EquivStorable UntaggedPair) instance Storable UntaggedPair
deriving via (IsStructViaReadRaw UntaggedPair) instance IsStruct UntaggedPair
instance (~) ty CInt => HasField "untaggedPair_a" UntaggedPair ty
where hasField = \x_0 -> (\y_1 -> UntaggedPair{untaggedPair_a = y_1,
untaggedPair_b = getField @"untaggedPair_b" x_0},
getField @"untaggedPair_a" x_0)
instance (~) ty CInt =>
HasField "untaggedPair_a" (Ptr UntaggedPair) (Ptr ty)
where getField = fromPtr (Proxy @"untaggedPair_a")
instance HasCField UntaggedPair "untaggedPair_a"
where type CFieldType UntaggedPair "untaggedPair_a" = CInt
offset# = \_ -> \_ -> 0
instance (~) ty CInt => HasField "untaggedPair_b" UntaggedPair ty
where hasField = \x_0 -> (\y_1 -> UntaggedPair{untaggedPair_b = y_1,
untaggedPair_a = getField @"untaggedPair_a" x_0},
getField @"untaggedPair_b" x_0)
instance (~) ty CInt =>
HasField "untaggedPair_b" (Ptr UntaggedPair) (Ptr ty)
where getField = fromPtr (Proxy @"untaggedPair_b")
instance HasCField UntaggedPair "untaggedPair_b"
where type CFieldType UntaggedPair "untaggedPair_b" = CInt
offset# = \_ -> \_ -> 4
{-| __C declaration:__ @enum \@untaggedEnum@
__defined at:__ @globals\/untagged.h 16:1@
__exported by:__ @globals\/untagged.h@
-}
newtype UntaggedEnum
= UntaggedEnum {unwrapUntaggedEnum :: CUInt}
deriving stock (Eq, Generic, Ord)
deriving newtype HasFFIType
instance StaticSize UntaggedEnum
where staticSizeOf = \_ -> 4 :: Int
staticAlignment = \_ -> 4 :: Int
instance ReadRaw UntaggedEnum
where readRaw = \ptr_0 -> pure UntaggedEnum <*> readRawByteOff ptr_0 (0 :: Int)
instance WriteRaw UntaggedEnum
where writeRaw = \ptr_0 -> \s_1 -> case s_1 of
UntaggedEnum unwrapUntaggedEnum_2 -> writeRawByteOff ptr_0 (0 :: Int) unwrapUntaggedEnum_2
deriving via (EquivStorable UntaggedEnum) instance Storable UntaggedEnum
deriving via CUInt instance Prim UntaggedEnum
instance CEnum UntaggedEnum
where type CEnumZ UntaggedEnum = CUInt
toCEnum = UntaggedEnum
fromCEnum = getField @"unwrapUntaggedEnum"
declaredValues = \_ -> declaredValuesFromList [(0,
singleton "VAL_A"),
(1, singleton "VAL_B")]
showsUndeclared = showsWrappedUndeclared "UntaggedEnum"
readPrecUndeclared = readPrecWrappedUndeclared "UntaggedEnum"
isDeclared = seqIsDeclared
mkDeclared = seqMkDeclared
instance SequentialCEnum UntaggedEnum
where minDeclaredValue = VAL_A
maxDeclaredValue = VAL_B
instance Show UntaggedEnum
where showsPrec = shows
instance Read UntaggedEnum
where readPrec = readPrec
readList = readListDefault
readListPrec = readListPrecDefault
instance (~) ty CUInt =>
HasField "unwrapUntaggedEnum" UntaggedEnum ty
where hasField = \x_0 -> (\y_1 -> UntaggedEnum{unwrapUntaggedEnum = y_1},
getField @"unwrapUntaggedEnum" x_0)
instance (~) ty CUInt =>
HasField "unwrapUntaggedEnum" (Ptr UntaggedEnum) (Ptr ty)
where getField = fromPtr (Proxy @"unwrapUntaggedEnum")
instance HasCField UntaggedEnum "unwrapUntaggedEnum"
where type CFieldType UntaggedEnum "unwrapUntaggedEnum" = CUInt
offset# = \_ -> \_ -> 0
{-| __C declaration:__ @VAL_A@
__defined at:__ @globals\/untagged.h 16:8@
__exported by:__ @globals\/untagged.h@
-}
pattern VAL_A :: UntaggedEnum
pattern VAL_A = UntaggedEnum 0
{-| __C declaration:__ @VAL_B@
__defined at:__ @globals\/untagged.h 16:19@
__exported by:__ @globals\/untagged.h@
-}
pattern VAL_B :: UntaggedEnum
pattern VAL_B = UntaggedEnum 1
{-| __C declaration:__ @enum \@untaggedEnumCoords@
__defined at:__ @globals\/untagged.h 18:1@
__exported by:__ @globals\/untagged.h@
-}
newtype UntaggedEnumCoords
= UntaggedEnumCoords {unwrapUntaggedEnumCoords :: CUInt}
deriving stock (Eq, Generic, Ord)
deriving newtype HasFFIType
instance StaticSize UntaggedEnumCoords
where staticSizeOf = \_ -> 4 :: Int
staticAlignment = \_ -> 4 :: Int
instance ReadRaw UntaggedEnumCoords
where readRaw = \ptr_0 -> pure UntaggedEnumCoords <*> readRawByteOff ptr_0 (0 :: Int)
instance WriteRaw UntaggedEnumCoords
where writeRaw = \ptr_0 -> \s_1 -> case s_1 of
UntaggedEnumCoords unwrapUntaggedEnumCoords_2 -> writeRawByteOff ptr_0 (0 :: Int) unwrapUntaggedEnumCoords_2
deriving via (EquivStorable UntaggedEnumCoords) instance Storable UntaggedEnumCoords
deriving via CUInt instance Prim UntaggedEnumCoords
instance CEnum UntaggedEnumCoords
where type CEnumZ UntaggedEnumCoords = CUInt
toCEnum = UntaggedEnumCoords
fromCEnum = getField @"unwrapUntaggedEnumCoords"
declaredValues = \_ -> declaredValuesFromList [(10, singleton "X"),
(20, singleton "Y"),
(30, singleton "Z")]
showsUndeclared = showsWrappedUndeclared "UntaggedEnumCoords"
readPrecUndeclared = readPrecWrappedUndeclared "UntaggedEnumCoords"
instance Show UntaggedEnumCoords
where showsPrec = shows
instance Read UntaggedEnumCoords
where readPrec = readPrec
readList = readListDefault
readListPrec = readListPrecDefault
instance (~) ty CUInt =>
HasField "unwrapUntaggedEnumCoords" UntaggedEnumCoords ty
where hasField = \x_0 -> (\y_1 -> UntaggedEnumCoords{unwrapUntaggedEnumCoords = y_1},
getField @"unwrapUntaggedEnumCoords" x_0)
instance (~) ty CUInt =>
HasField "unwrapUntaggedEnumCoords"
(Ptr UntaggedEnumCoords)
(Ptr ty)
where getField = fromPtr (Proxy @"unwrapUntaggedEnumCoords")
instance HasCField UntaggedEnumCoords "unwrapUntaggedEnumCoords"
where type CFieldType UntaggedEnumCoords
"unwrapUntaggedEnumCoords" = CUInt
offset# = \_ -> \_ -> 0
{-| __C declaration:__ @X@
__defined at:__ @globals\/untagged.h 18:8@
__exported by:__ @globals\/untagged.h@
-}
pattern X :: UntaggedEnumCoords
pattern X = UntaggedEnumCoords 10
{-| __C declaration:__ @Y@
__defined at:__ @globals\/untagged.h 18:16@
__exported by:__ @globals\/untagged.h@
-}
pattern Y :: UntaggedEnumCoords
pattern Y = UntaggedEnumCoords 20
{-| __C declaration:__ @Z@
__defined at:__ @globals\/untagged.h 18:24@
__exported by:__ @globals\/untagged.h@
-}
pattern Z :: UntaggedEnumCoords
pattern Z = UntaggedEnumCoords 30
{-| __C declaration:__ @enum \@A@
__defined at:__ @globals\/untagged.h 24:1@
__exported by:__ @globals\/untagged.h@
-}
newtype A
= A {unwrapA :: CUInt}
deriving stock (Eq, Generic, Ord)
deriving newtype HasFFIType
instance StaticSize A
where staticSizeOf = \_ -> 4 :: Int
staticAlignment = \_ -> 4 :: Int
instance ReadRaw A
where readRaw = \ptr_0 -> pure A <*> readRawByteOff ptr_0 (0 :: Int)
instance WriteRaw A
where writeRaw = \ptr_0 -> \s_1 -> case s_1 of
A unwrapA_2 -> writeRawByteOff ptr_0 (0 :: Int) unwrapA_2
deriving via (EquivStorable A) instance Storable A
deriving via CUInt instance Prim A
instance CEnum A
where type CEnumZ A = CUInt
toCEnum = A
fromCEnum = getField @"unwrapA"
declaredValues = \_ -> declaredValuesFromList [(0, singleton "A1")]
showsUndeclared = showsWrappedUndeclared "A"
readPrecUndeclared = readPrecWrappedUndeclared "A"
isDeclared = seqIsDeclared
mkDeclared = seqMkDeclared
instance SequentialCEnum A
where minDeclaredValue = A1
maxDeclaredValue = A1
instance Show A
where showsPrec = shows
instance Read A
where readPrec = readPrec
readList = readListDefault
readListPrec = readListPrecDefault
instance (~) ty CUInt => HasField "unwrapA" A ty
where hasField = \x_0 -> (\y_1 -> A{unwrapA = y_1},
getField @"unwrapA" x_0)
instance (~) ty CUInt => HasField "unwrapA" (Ptr A) (Ptr ty)
where getField = fromPtr (Proxy @"unwrapA")
instance HasCField A "unwrapA"
where type CFieldType A "unwrapA" = CUInt
offset# = \_ -> \_ -> 0
{-| __C declaration:__ @a1@
__defined at:__ @globals\/untagged.h 24:8@
__exported by:__ @globals\/untagged.h@
-}
pattern A1 :: A
pattern A1 = A 0
{-| __C declaration:__ @union \@B@
__defined at:__ @globals\/untagged.h 27:7@
__exported by:__ @globals\/untagged.h@
-}
newtype B = B {unwrapB :: ByteArray} deriving stock Generic
deriving via (SizedByteArray 4 4) instance StaticSize B
deriving via (SizedByteArray 4 4) instance ReadRaw B
deriving via (SizedByteArray 4 4) instance WriteRaw B
deriving via (EquivStorable B) instance Storable B
deriving via (SizedByteArray 4 4) instance IsUnion B
instance (~) ty CInt => HasField "b_x" B ty
where getField = getUnionPayload
instance (~) ty CInt => HasField "b_x" B ty
where hasField = \x_0 -> (\y_1 -> setUnionPayload y_1 x_0,
getField @"b_x" x_0)
instance (~) ty CInt => HasField "b_x" (Ptr B) (Ptr ty)
where getField = fromPtr (Proxy @"b_x")
instance HasCField B "b_x"
where type CFieldType B "b_x" = CInt
offset# = \_ -> \_ -> 0
{-| __C declaration:__ @struct \@C@
__defined at:__ @globals\/untagged.h 30:1@
__exported by:__ @globals\/untagged.h@
-}
data C
= C {c_x :: CInt
{- ^ __C declaration:__ @x@
__defined at:__ @globals\/untagged.h 30:14@
__exported by:__ @globals\/untagged.h@
-}}
deriving stock (Eq, Generic, Show)
instance StaticSize C
where staticSizeOf = \_ -> 4 :: Int
staticAlignment = \_ -> 4 :: Int
instance ReadRaw C
where readRaw = \ptr_0 -> pure C <*> readRaw (Proxy @"c_x") ptr_0
instance WriteRaw C
where writeRaw = \ptr_0 -> \s_1 -> case s_1 of
C c_x_2 -> writeRaw (Proxy @"c_x") ptr_0 c_x_2
deriving via (EquivStorable C) instance Storable C
deriving via (IsStructViaReadRaw C) instance IsStruct C
instance (~) ty CInt => HasField "c_x" C ty
where hasField = \x_0 -> (\y_1 -> C{c_x = y_1},
getField @"c_x" x_0)
instance (~) ty CInt => HasField "c_x" (Ptr C) (Ptr ty)
where getField = fromPtr (Proxy @"c_x")
instance HasCField C "c_x"
where type CFieldType C "c_x" = CInt
offset# = \_ -> \_ -> 0
-- __unique:__ @test_globalsuntagged_Example_get_untaggedPoint@
foreign import ccall unsafe "hs_bindgen_d77490b2fc5f4d07" hs_bindgen_d77490b2fc5f4d07_base ::
IO (Ptr Void)
-- __unique:__ @test_globalsuntagged_Example_get_untaggedPoint@
hs_bindgen_d77490b2fc5f4d07 :: IO (Ptr UntaggedPoint)
-- __unique:__ @test_globalsuntagged_Example_get_untaggedPoint@
hs_bindgen_d77490b2fc5f4d07 = fmap fromFFIType hs_bindgen_d77490b2fc5f4d07_base
{-# NOINLINE untaggedPoint #-}
{-| __C declaration:__ @untaggedPoint@
__defined at:__ @globals\/untagged.h 12:26@
__exported by:__ @globals\/untagged.h@
-}
untaggedPoint :: Ptr UntaggedPoint
{-| __C declaration:__ @untaggedPoint@
__defined at:__ @globals\/untagged.h 12:26@
__exported by:__ @globals\/untagged.h@
-}
untaggedPoint = unsafePerformIO hs_bindgen_d77490b2fc5f4d07
-- __unique:__ @test_globalsuntagged_Example_get_untaggedPair@
foreign import ccall unsafe "hs_bindgen_0c5d4010212a5c60" hs_bindgen_0c5d4010212a5c60_base ::
IO (Ptr Void)
-- __unique:__ @test_globalsuntagged_Example_get_untaggedPair@
hs_bindgen_0c5d4010212a5c60 :: IO (Ptr UntaggedPair)
-- __unique:__ @test_globalsuntagged_Example_get_untaggedPair@
hs_bindgen_0c5d4010212a5c60 = fmap fromFFIType hs_bindgen_0c5d4010212a5c60_base
{-# NOINLINE untaggedPair #-}
{-| __C declaration:__ @untaggedPair@
__defined at:__ @globals\/untagged.h 14:26@
__exported by:__ @globals\/untagged.h@
-}
untaggedPair :: Ptr UntaggedPair
{-| __C declaration:__ @untaggedPair@
__defined at:__ @globals\/untagged.h 14:26@
__exported by:__ @globals\/untagged.h@
-}
untaggedPair = unsafePerformIO hs_bindgen_0c5d4010212a5c60
-- __unique:__ @test_globalsuntagged_Example_get_untaggedEnum@
foreign import ccall unsafe "hs_bindgen_6913d0b9652bbf6f" hs_bindgen_6913d0b9652bbf6f_base ::
IO (Ptr Void)
-- __unique:__ @test_globalsuntagged_Example_get_untaggedEnum@
hs_bindgen_6913d0b9652bbf6f :: IO (Ptr UntaggedEnum)
-- __unique:__ @test_globalsuntagged_Example_get_untaggedEnum@
hs_bindgen_6913d0b9652bbf6f = fmap fromFFIType hs_bindgen_6913d0b9652bbf6f_base
{-# NOINLINE untaggedEnum #-}
{-| __C declaration:__ @untaggedEnum@
__defined at:__ @globals\/untagged.h 16:31@
__exported by:__ @globals\/untagged.h@
-}
untaggedEnum :: Ptr UntaggedEnum
{-| __C declaration:__ @untaggedEnum@
__defined at:__ @globals\/untagged.h 16:31@
__exported by:__ @globals\/untagged.h@
-}
untaggedEnum = unsafePerformIO hs_bindgen_6913d0b9652bbf6f
-- __unique:__ @test_globalsuntagged_Example_get_untaggedEnumCoords@
foreign import ccall unsafe "hs_bindgen_d7232446972b888a" hs_bindgen_d7232446972b888a_base ::
IO (Ptr Void)
-- __unique:__ @test_globalsuntagged_Example_get_untaggedEnumCoords@
hs_bindgen_d7232446972b888a :: IO (Ptr UntaggedEnumCoords)
-- __unique:__ @test_globalsuntagged_Example_get_untaggedEnumCoords@
hs_bindgen_d7232446972b888a = fmap fromFFIType hs_bindgen_d7232446972b888a_base
{-# NOINLINE untaggedEnumCoords #-}
{-| __C declaration:__ @untaggedEnumCoords@
__defined at:__ @globals\/untagged.h 18:33@
__exported by:__ @globals\/untagged.h@
-}
untaggedEnumCoords :: Ptr UntaggedEnumCoords
{-| __C declaration:__ @untaggedEnumCoords@
__defined at:__ @globals\/untagged.h 18:33@
__exported by:__ @globals\/untagged.h@
-}
untaggedEnumCoords = unsafePerformIO hs_bindgen_d7232446972b888a
-- __unique:__ @test_globalsuntagged_Example_get_A@
foreign import ccall unsafe "hs_bindgen_9d7d1fc84d6966f1" hs_bindgen_9d7d1fc84d6966f1_base ::
IO (Ptr Void)
-- __unique:__ @test_globalsuntagged_Example_get_A@
hs_bindgen_9d7d1fc84d6966f1 :: IO (Ptr (ConstantArray 17 A))
-- __unique:__ @test_globalsuntagged_Example_get_A@
hs_bindgen_9d7d1fc84d6966f1 = fmap fromFFIType hs_bindgen_9d7d1fc84d6966f1_base
{-# NOINLINE a #-}
{-| __C declaration:__ @A@
__defined at:__ @globals\/untagged.h 24:13@
__exported by:__ @globals\/untagged.h@
-}
a :: Ptr (ConstantArray 17 A)
{-| __C declaration:__ @A@
__defined at:__ @globals\/untagged.h 24:13@
__exported by:__ @globals\/untagged.h@
-}
a = unsafePerformIO hs_bindgen_9d7d1fc84d6966f1
-- __unique:__ @test_globalsuntagged_Example_get_B@
foreign import ccall unsafe "hs_bindgen_38f1407628b3330b" hs_bindgen_38f1407628b3330b_base ::
IO (Ptr Void)
-- __unique:__ @test_globalsuntagged_Example_get_B@
hs_bindgen_38f1407628b3330b :: IO (PtrConst B)
-- __unique:__ @test_globalsuntagged_Example_get_B@
hs_bindgen_38f1407628b3330b = fmap fromFFIType hs_bindgen_38f1407628b3330b_base
{-# NOINLINE hs_bindgen_c84e7bea962cf7bc #-}
{-| __C declaration:__ @B@
__defined at:__ @globals\/untagged.h 27:24@
__exported by:__ @globals\/untagged.h@
__unique:__ @test_globalsuntagged_Example_b@
-}
hs_bindgen_c84e7bea962cf7bc :: PtrConst B
{-| __C declaration:__ @B@
__defined at:__ @globals\/untagged.h 27:24@
__exported by:__ @globals\/untagged.h@
__unique:__ @test_globalsuntagged_Example_b@
-}
hs_bindgen_c84e7bea962cf7bc = unsafePerformIO hs_bindgen_38f1407628b3330b
{-# NOINLINE b #-}
b :: B
b = unsafePerformIO (peek hs_bindgen_c84e7bea962cf7bc)
-- __unique:__ @test_globalsuntagged_Example_get_C@
foreign import ccall unsafe "hs_bindgen_492f8d9f3437df29" hs_bindgen_492f8d9f3437df29_base ::
IO (Ptr Void)
-- __unique:__ @test_globalsuntagged_Example_get_C@
hs_bindgen_492f8d9f3437df29 :: IO (Ptr (PtrConst (IncompleteArray (Ptr C))))
-- __unique:__ @test_globalsuntagged_Example_get_C@
hs_bindgen_492f8d9f3437df29 = fmap fromFFIType hs_bindgen_492f8d9f3437df29_base
{-# NOINLINE c #-}
{-| __C declaration:__ @C@
__defined at:__ @globals\/untagged.h 30:29@
__exported by:__ @globals\/untagged.h@
-}
c :: Ptr (PtrConst (IncompleteArray (Ptr C)))
{-| __C declaration:__ @C@
__defined at:__ @globals\/untagged.h 30:29@
__exported by:__ @globals\/untagged.h@
-}
c = unsafePerformIO hs_bindgen_492f8d9f3437df29