From f155e1832b97af2bd79bab2dda502bd30c79f35a Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Sun, 26 Feb 2017 02:15:03 +0100
Subject: [PATCH] remove old code

---
 src/InGame.hs | 13 -------------
 1 file changed, 13 deletions(-)

diff --git a/src/InGame.hs b/src/InGame.hs
index 750ea83..586bf56 100644
--- a/src/InGame.hs
+++ b/src/InGame.hs
@@ -118,19 +118,6 @@ updateGame sec = do
 
 drawGame :: Affection UserData ()
 drawGame = do
-  -- ud <- getAffection
-  -- liftIO $ gegl_node_process $ nodeGraph ud M.! KeySink
-  -- present
-  --   (GeglRectangle (floor $ fst $ sPos $ ship ud) (floor $ snd $ sPos $ ship ud) 50 50)
-  --   (buffer ud)
-  --   False
-  -- mapM_ (\h -> do
-  --   let s = 100 `div` hDiv h
-  --   present
-  --     (GeglRectangle (floor $ fst $ hPos h) (floor $ snd $ hPos h) s s)
-  --     (buffer ud)
-  --     False
-  --   ) (haskelloids ud)
   ud <- getAffection
   liftIO $ gegl_node_process $ nodeGraph ud M.! KeySink
   present