init drawing

src/Draw.hs

@@ -0,0 +1,11 @@
+module Draw where
+
+import Control.Concurrent.MVar
+
+-- internal imports
+
+import Types
+
+draw :: MVar State -> Word -> IO ()
+draw state ident = do
+  return ()

src/Main.hs

@@ -109,6 +109,7 @@ main = do
       SDL.glMakeCurrent win context
       mapM_ (eventHandler run) =<< SDL.pollEvents
       GL.clear [GL.ColorBuffer, GL.DepthBuffer, GL.StencilBuffer]
+      draw state
       GL.flush
       SDL.glSwapWindow win
       ) contexts