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