From a812e572bb8951bd5b9ebc575b2805925823c7ea Mon Sep 17 00:00:00 2001
From: 3gg <3gg@shellblade.net>
Date: Wed, 4 Oct 2023 09:09:07 -0700
Subject: Clean up.
---
Demos/Pong/Main.hs | 11 ++---------
1 file changed, 2 insertions(+), 9 deletions(-)
(limited to 'Demos')
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
--
cgit v1.2.3