Clean up.

1 files changed, 2 insertions, 9 deletions

diff --git a/Demos/Pong/Main.hs b/Demos/Pong/Main.hs
index c82b67e..0237a26 100644
--- a/Demos/Pong/Main.hs
+++ b/Demos/Pong/Main.hs
@@ -5,8 +5,7 @@ import           Pong
 import           Spear.App
 import           Spear.Game
 import           Spear.Math.AABB
-import           Spear.Math.Matrix4                      as Matrix4 hiding
-                                                                    (position)
+import           Spear.Math.Matrix4         as Matrix4 hiding (position)
 import           Spear.Math.Spatial
 import           Spear.Math.Spatial2
 import           Spear.Math.Vector
@@ -15,10 +14,7 @@ import           Spear.Render.Core.State
 import           Spear.Render.Immediate
 import           Spear.Window
 
-import           Data.Maybe                              (mapMaybe)
-import           Graphics.Rendering.OpenGL.GL            (($=))
-import qualified Graphics.Rendering.OpenGL.GL            as GL
-import           Graphics.Rendering.OpenGL.GL.VertexSpec (currentColor)
+import           Data.Maybe                 (mapMaybe)
 
 
 data GameState = GameState
@@ -125,6 +121,3 @@ translateEvents = mapMaybe translateEvents'
         translateEvents' _                   = Nothing
 
 exitRequested = elem (KeyDown KEY_ESC)
-
-f2d :: Float -> GL.GLdouble
-f2d = realToFrac