build error

src/Main.hs

@@ -1,6 +1,10 @@
 module Main where
 
+import qualified Foreign.Ptr (ToFunPtr)
+
 import qualified RGFW.Generated as RGFW
 
 main :: IO ()
-main = putStrLn "Hello World"
+main = do
+  putStrLn "Hello World"
+  window <- toFunPtr ()