From 01e7f7120d2268062ce2aff4d3718977a018660e Mon Sep 17 00:00:00 2001
From: nek0 <nek0@nek0.eu>
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