From 170685f6c80e3e66decc1a0b8f34e6446032993c Mon Sep 17 00:00:00 2001
From: mtgmonkey <mtgmonkey@nixos>
Date: Thu, 11 Dec 2025 23:03:15 +0100
Subject: remove extra files

---
 lib/Main.hs | 38 --------------------------------------
 1 file changed, 38 deletions(-)
 delete mode 100644 lib/Main.hs

(limited to 'lib')

diff --git a/lib/Main.hs b/lib/Main.hs
deleted file mode 100644
index cbed60f..0000000
--- a/lib/Main.hs
+++ /dev/null
@@ -1,38 +0,0 @@
-{-# LANGUAGE CApiFFI #-}
-
-module Main (main) where
-
-import Data.Bits (shiftL, (.|.))
-import Foreign
-import Foreign.C.String
-import Foreign.C.Types
-
-import Lib
-
---------------------------------------------------------------------------------
--- main
---------------------------------------------------------------------------------
-
-main :: IO ()
-main = do
-  window <- withCString "a window" (\name ->
-              rgfwCreateWindow
-                name
-                0
-                0
-                800
-                600
-                $ mkWindowFlags 
-                  [ WindowNoResize
-                  , WindowOpenGL
-                  , WindowFullscreen
-                  ]
-              )
-  let loop ctr = do
-        shouldClose <- rgfwWindowShouldClose window
-        if 0 /= shouldClose
-        then return shouldClose
-        else loop $ ctr + 1
-  exitCode <- loop 0
-  putStrLn $ show exitCode
-  return ()
-- 
cgit v1.3.1