module Main

import Graphics.Window
import Winit.FFI

-- TODO temp for testing
import System.FFI

main : IO ()
main = do
  runApp
    (pure $ MkInitActions CreateWindow [])
    (\windowId, event => do
      putStrLn $ "window ID: " ++ show windowId
      putStrLn $ "event: " ++ show event

      case event of
        CloseRequested => pure $ MkEventActions [Exit]
        _ => pure $ MkEventActions []
    )
  pure ()