1 files changed, 11 insertions(+), 1 deletions(-)

M src/Main.hs

@@ 141,4 141,14 @@ main = do
     w <- createWindow "Typograffiti" wcfg
     _ <- glCreateContext w
 
-    putStrLn "Hello, Haskell!"
+    fix $ \loop -> do
+        events <- fmap eventPayload <$> pollEvents
+        liftIO $ glClearColor 0 0 0 1
+        liftIO $ glClear GL_COLOR_BUFFER_BIT
+
+        sz@(V2 dw dh) <- liftIO $ glGetDrawableSize w
+        liftIO $ glViewport 0 0 (fromIntegral dw) (fromIntegral dh)
+
+        liftIO $ glSwapWindow w
+        unless (QuitEvent `elem` events) loop
+    return ()