hs-bindgen-1.0.0.0: test-artefacts/fixtures/declarations/select_scoping/th.txt
-- addDependentFile test-artefacts/headers/golden/declarations/select_scoping_header.h
-- addDependentFile test-artefacts/headers/golden/declarations/select_scoping.h
{-| __C declaration:__ @ParsedAndSelected1@
__defined at:__ @declarations\/select_scoping.h 6:13@
__exported by:__ @declarations\/select_scoping.h@
-}
newtype ParsedAndSelected1
= ParsedAndSelected1 {unwrapParsedAndSelected1 :: CInt}
deriving stock (Eq, Generic, Ord, Read, Show)
deriving newtype (Bitfield,
Bits,
Bounded,
Enum,
FiniteBits,
HasFFIType,
Integral,
Ix,
Num,
Prim,
ReadRaw,
Real,
StaticSize,
Storable,
WriteRaw)
instance (~) ty CInt =>
HasField "unwrapParsedAndSelected1" ParsedAndSelected1 ty
where hasField = \x_0 -> (\y_1 -> ParsedAndSelected1{unwrapParsedAndSelected1 = y_1},
getField @"unwrapParsedAndSelected1" x_0)
instance (~) ty CInt =>
HasField "unwrapParsedAndSelected1"
(Ptr ParsedAndSelected1)
(Ptr ty)
where getField = fromPtr (Proxy @"unwrapParsedAndSelected1")
instance HasCField ParsedAndSelected1 "unwrapParsedAndSelected1"
where type CFieldType ParsedAndSelected1
"unwrapParsedAndSelected1" = CInt
offset# = \_ -> \_ -> 0