diff --git a/src/Draw.hs b/src/Draw.hs new file mode 100644 index 0000000..118e7d3 --- /dev/null +++ b/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 () diff --git a/src/Main.hs b/src/Main.hs index ba7fe37..a7ec4d7 100644 --- a/src/Main.hs +++ b/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