remove extra files

1 files changed, 0 insertions, 38 deletions

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 ()