diff --git a/spice.cabal b/spice.cabal
--- a/spice.cabal
+++ b/spice.cabal
@@ -1,5 +1,5 @@
 name:                spice
-version:             0.1.0.2
+version:             0.1.1.0
 synopsis:            An FRP-based game engine written in Haskell.
 description:         An FRP-based game engine written in Haskell. - See the homepage for more information.
 homepage:            http://github.com/crockeo/spice
@@ -18,6 +18,7 @@
                        FRP.Spice.Engine
                        FRP.Spice.Engine.Driver
                        FRP.Spice.Engine.Network
+                       FRP.Spice.Engine.RenderWrapper
                        FRP.Spice.Engine.RunInput
                        FRP.Spice.Game
                        FRP.Spice.Input
diff --git a/src/FRP/Spice/Engine/Network.hs b/src/FRP/Spice/Engine/Network.hs
--- a/src/FRP/Spice/Engine/Network.hs
+++ b/src/FRP/Spice/Engine/Network.hs
@@ -11,6 +11,7 @@
 
 -------------------
 -- Local Imports --
+import FRP.Spice.Engine.RenderWrapper
 import FRP.Spice.Input
 import FRP.Spice.Game
 
@@ -29,4 +30,4 @@
 
     return $ do
       gameSink $ update 0.01 input game
-      render game
+      renderWrapper $ render game
diff --git a/src/FRP/Spice/Engine/RenderWrapper.hs b/src/FRP/Spice/Engine/RenderWrapper.hs
new file mode 100644
--- /dev/null
+++ b/src/FRP/Spice/Engine/RenderWrapper.hs
@@ -0,0 +1,26 @@
+{-|
+  This module provides a wrapper to use with a given @'FRP.Spice.Game.Game'@'s
+  render function.
+-}
+module FRP.Spice.Engine.RenderWrapper where
+
+--------------------
+-- Global Imports --
+import Graphics.Rendering.OpenGL
+import Graphics.UI.GLFW
+
+----------
+-- Code --
+
+{-|
+  A function to be ran on a @'FRP.Spice.Game.Game'@'s render function to
+  provide a bit of a framework around it.
+-}
+renderWrapper :: IO () -> IO ()
+renderWrapper renderfn = do
+  clear [ColorBuffer]
+
+  renderfn
+
+  flush
+  swapBuffers
diff --git a/src/FRP/Spice/Engine/RunInput.hs b/src/FRP/Spice/Engine/RunInput.hs
--- a/src/FRP/Spice/Engine/RunInput.hs
+++ b/src/FRP/Spice/Engine/RunInput.hs
@@ -24,6 +24,7 @@
 -}
 runInput :: IORef Bool -> IO (Maybe Float)
 runInput closed = do
+  pollEvents
   c <- readIORef closed
 
   if c