From 5a701a36328eeca44ad5dab85ab3b8287c96d79b Mon Sep 17 00:00:00 2001
From: mtgmonkey <mtgmonkey@nixos>
Date: Tue, 16 Dec 2025 00:24:10 +0100
Subject: [feat] unify with example, actually win for once

---
 src/Main.hs | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 src/Main.hs

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
new file mode 100644
index 0000000..7dcf9c3
--- /dev/null
+++ b/src/Main.hs
@@ -0,0 +1,36 @@
+module Main (main) where
+
+import Foreign.C.String (withCString)
+
+import RGFW
+
+--------------------------------------------------------------------------------
+-- main
+--------------------------------------------------------------------------------
+
+main :: IO ()
+main = do
+  window <- withCString "window <3" (\name ->
+    c'RGFW_createWindow 
+      name
+      0
+      0
+      800
+      600
+      $ sum
+        [ c'RGFW_windowNoResize
+        , c'RGFW_windowOpenGL
+        , c'RGFW_windowedFullscreen
+        ]
+    )
+  putStrLn $ show window
+  let loop ctr = do
+        shouldClose <- c'RGFW_window_shouldClose window
+        if 0 /= shouldClose
+        then return shouldClose
+        else do
+          c'RGFW_window_swapBuffers_OpenGL window
+          loop $ ctr + 1
+  exitCode <- loop (0 :: Integer)
+  putStrLn $ show exitCode
+  return ()
-- 
cgit v1.3.1