src/Main.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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 ()