diff --git a/src/Main.hs b/src/Main.hs
index 3992e57..ead72a6 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -71,12 +71,3 @@ draw = do
   liftIO $ beginFrame (nano ud) 800 600 (800/600)
   smDraw (state ud)
   liftIO $ endFrame (nano ud)
-  -- GL.viewport $= (GL.Position 0 0, GL.Size 800 600)
-  -- ud <- getAffection
-  -- GL.currentProgram $= (Just . GLU.program $ program sd)
-  -- let proj = ortho (-1) 1 (-1) 1 (-1) 1
-  --     view = lookAt
-  --       (V3 0 0 (-1))
-  --       (V3 0 0 0)
-  --       (V3 0 1 0)
-  --     model = mkTransformation (Quaternion 1 (V3 0 0 0)) (V3 0 0 0)