Demonstrate need to import something from c-expr

well-typed · Feb 5, 2025 · 3387ae8 · 3387ae8
1 parent fcf4b4b
commit 3387ae8
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/hs-bindgen/test-th/HsBindgen/TestTH/Spliced.hs b/hs-bindgen/test-th/HsBindgen/TestTH/Spliced.hs
@@ -8,6 +8,7 @@ import HsBindgen.Lib
 import Misc
 import System.FilePath ((</>))
 import Foreign
+import Foreign.C.Types
 
 $(runIO (findPackageDirectory "hs-bindgen") >>= \dir -> templateHaskell (Just dir) (dir </> "examples" </> "test-th-01.h"))
 
@@ -21,3 +22,6 @@ val = MyStruct
 
 pokeVal :: Ptr MyStruct -> IO ()
 pokeVal ptr = poke ptr val
+
+myPlus :: CLong -> CLong -> CLong
+myPlus x y = pLUS x y