From 01e7f7120d2268062ce2aff4d3718977a018660e Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 1 Feb 2019 11:54:38 +0100 Subject: [PATCH] init drawing --- src/Draw.hs | 11 +++++++++++ src/Main.hs | 1 + 2 files changed, 12 insertions(+) create mode 100644 src/Draw.hs 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