add a couple CTYPE pragmas

awkward-squad · Nov 15, 2023 · 3e563d4 · 3e563d4
1 parent ac874d2
commit 3e563d4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/termbox-bindings-c/src/Termbox/Bindings/C.hs b/termbox-bindings-c/src/Termbox/Bindings/C.hs
@@ -276,7 +276,7 @@ foreign import capi unsafe "termbox.h tb_width"
 -- Objects
 
 -- | A cell.
-data Tb_cell = Tb_cell
+data {-# CTYPE "termbox.h" "struct tb_cell" #-} Tb_cell = Tb_cell
   { -- | A unicode character.
     ch :: {-# UNPACK #-} !Word32,
     -- | Foreground attribute.
@@ -304,7 +304,7 @@ instance Storable Tb_cell where
     Storable.pokeByteOff ptr 6 bg
 
 -- | An event.
-data Tb_event = Tb_event
+data {-# CTYPE "termbox.h" "struct tb_event" #-} Tb_event = Tb_event
   { type_ :: {-# UNPACK #-} !Word8,
     mod :: {-# UNPACK #-} !Word8,
     key :: {-# UNPACK #-} !Word16,