missing Castable instance for Ptr CBool and Ptr CFloat (#223)

* missing Castable instance for Ptr CBool * missing Castable (Ptr CFloat) (Ptr CFloat)
wavewave · Aug 15, 2023 · 3be050d · 3be050d
1 parent a1ce045
commit 3be050d
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/fficxx-runtime/src/FFICXX/Runtime/Cast.hs b/fficxx-runtime/src/FFICXX/Runtime/Cast.hs
@@ -297,6 +297,10 @@ instance Castable Word64 Word64 where
   cast x f = f x
   uncast x f = f x
 
+instance Castable (Ptr CBool) (Ptr CBool) where
+  cast x f = f x
+  uncast x f = f x
+
 instance Castable (Ptr CInt) (Ptr CInt) where
   cast x f = f x
   uncast x f = f x
@@ -317,6 +321,10 @@ instance Castable (Ptr CLong) (Ptr CLong) where
   cast x f = f x
   uncast x f = f x
 
+instance Castable (Ptr CFloat) (Ptr CFloat) where
+  cast x f = f x
+  uncast x f = f x
+
 instance Castable (Ptr CDouble) (Ptr CDouble) where
   cast x f = f x
   uncast x f = f x

diff --git a/fficxx/src/FFICXX/Generate/Builder.hs b/fficxx/src/FFICXX/Generate/Builder.hs
@@ -157,7 +157,6 @@ simpleBuilder cfg sbc = do
   for_ (cabal_additional_c_srcs cabal) (\(AddCSrc hdr txt) -> gen hdr txt)
   --
   putStrLn "Generating Enum.hsc"
-  debugExactPrint (C.buildEnumHsc mempty (topLevelMod <> ".Enum") enums)
   gen
     (topLevelMod <.> "Enum" <.> "hsc")
     (exactPrint (C.buildEnumHsc mempty (topLevelMod <> ".Enum") enums))