packages feed

hs-bindgen-1.0.0.0: test-artefacts/fixtures/binding-specs/rep/emptydata/staticsize/Example.hs

{-# LANGUAGE EmptyDataDecls #-}
{-# LANGUAGE NoImplicitPrelude #-}

module Example
    ( Example.Point2d
    , Example.Value
    , Example.Color
    , Example.TdStruct
    , Example.TdChain
    , Example.TdUnion
    , Example.Counter
    , Example.OpaqueFwd
    , Example.MacroPtr
    )
  where

import qualified HsBindgen.Runtime.Marshal as Marshal
import Prelude (Int)

{-| __C declaration:__ @struct point2d@

    __defined at:__ @binding-specs\/rep\/emptydata\/staticsize.h 9:8@

    __exported by:__ @binding-specs\/rep\/emptydata\/staticsize.h@
-}
data Point2d

instance Marshal.StaticSize Point2d where

  staticSizeOf = \_ -> (8 :: Int)

  staticAlignment = \_ -> (4 :: Int)

{-| __C declaration:__ @union value@

    __defined at:__ @binding-specs\/rep\/emptydata\/staticsize.h 11:7@

    __exported by:__ @binding-specs\/rep\/emptydata\/staticsize.h@
-}
data Value

instance Marshal.StaticSize Value where

  staticSizeOf = \_ -> (8 :: Int)

  staticAlignment = \_ -> (8 :: Int)

{-| __C declaration:__ @enum color@

    __defined at:__ @binding-specs\/rep\/emptydata\/staticsize.h 13:6@

    __exported by:__ @binding-specs\/rep\/emptydata\/staticsize.h@
-}
data Color

instance Marshal.StaticSize Color where

  staticSizeOf = \_ -> (4 :: Int)

  staticAlignment = \_ -> (4 :: Int)

{-| __C declaration:__ @td_struct@

    __defined at:__ @binding-specs\/rep\/emptydata\/staticsize.h 17:21@

    __exported by:__ @binding-specs\/rep\/emptydata\/staticsize.h@
-}
data TdStruct

instance Marshal.StaticSize TdStruct where

  staticSizeOf = \_ -> (16 :: Int)

  staticAlignment = \_ -> (8 :: Int)

{-| __C declaration:__ @td_chain@

    __defined at:__ @binding-specs\/rep\/emptydata\/staticsize.h 18:21@

    __exported by:__ @binding-specs\/rep\/emptydata\/staticsize.h@
-}
data TdChain

instance Marshal.StaticSize TdChain where

  staticSizeOf = \_ -> (16 :: Int)

  staticAlignment = \_ -> (8 :: Int)

{-| __C declaration:__ @td_union@

    __defined at:__ @binding-specs\/rep\/emptydata\/staticsize.h 19:21@

    __exported by:__ @binding-specs\/rep\/emptydata\/staticsize.h@
-}
data TdUnion

instance Marshal.StaticSize TdUnion where

  staticSizeOf = \_ -> (8 :: Int)

  staticAlignment = \_ -> (8 :: Int)

{-| __C declaration:__ @counter@

    __defined at:__ @binding-specs\/rep\/emptydata\/staticsize.h 23:13@

    __exported by:__ @binding-specs\/rep\/emptydata\/staticsize.h@
-}
data Counter

{-| __C declaration:__ @struct opaque_fwd@

    __defined at:__ @binding-specs\/rep\/emptydata\/staticsize.h 25:8@

    __exported by:__ @binding-specs\/rep\/emptydata\/staticsize.h@
-}
data OpaqueFwd

{-| __C declaration:__ @macro macro_ptr@

    __defined at:__ @binding-specs\/rep\/emptydata\/staticsize.h 27:9@

    __exported by:__ @binding-specs\/rep\/emptydata\/staticsize.h@
-}
data MacroPtr