From cc9a36d19dfc9cd11002e725b8dc6e03b7729779 Mon Sep 17 00:00:00 2001
From: Mikkel Thestrup <mithe24@student.sdu.dk>
Date: Thu, 25 Dec 2025 16:06:54 +0100
Subject: Feat(Snakey): Added implementation for Snakey game

---
 app/Scratchy.hs | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'app/Scratchy.hs')

diff --git a/app/Scratchy.hs b/app/Scratchy.hs
index cea910d..f2ac9a2 100644
--- a/app/Scratchy.hs
+++ b/app/Scratchy.hs
@@ -5,7 +5,7 @@ import Graphics.Gloss.Interface.Pure.Game
 import Scratchy.World
 import Scratchy.Syntax
 
-import Example.CircleThatMoves
+import Snakey.TwoSnakes
 
 -- Main
 ------------------------------------------------------------
@@ -19,7 +19,7 @@ main = play
     white
     []
     []
-    circSprite
+    twoSnakes
     []
     []
     []
@@ -32,7 +32,6 @@ main = play
                      >> moveSprites tick
                      >> handleKeyEvents
                      >> tickTimers
-                     >> runProg
                    ) )
 
 
@@ -72,5 +71,3 @@ toScreen (gx, gy) =
   let fx = gx - (fromIntegral gridW - 1) / 2
       fy = gy - (fromIntegral gridH - 1) / 2
   in (fx * cellSize, fy * cellSize)
-
-
-- 
cgit v1.2.3-70-g09d2