From b345e38e36377d9767ef68276f64884ece92c996 Mon Sep 17 00:00:00 2001
From: Mikkel Thestrup <mithe24@student.sdu.dk>
Date: Sat, 27 Dec 2025 19:11:26 +0100
Subject: Style(*): Changed code style to use 2 spcae indent and more.

---
 app/Example/CircleThatMoves.hs | 39 ++++++++++++++++++++++-----------------
 1 file changed, 22 insertions(+), 17 deletions(-)

(limited to 'app/Example/CircleThatMoves.hs')

diff --git a/app/Example/CircleThatMoves.hs b/app/Example/CircleThatMoves.hs
index d173a3d..077ee1e 100644
--- a/app/Example/CircleThatMoves.hs
+++ b/app/Example/CircleThatMoves.hs
@@ -8,20 +8,25 @@ circSprite = NewSprite
   (15,15)
   (Color green $ circleSolid (cellSize * 0.6))
   (\s ->
-      OnKeyEvent (Char 'w')
-        ( OnTargetReached s
-          (\cl -> SetTarget s (nextCell U cl) (Pure ()))
-        $ Pure () )
-    $ OnKeyEvent (Char 's')
-        ( OnTargetReached s
-          (\cl -> SetTarget s (nextCell D cl) (Pure ()))
-        $ Pure () )
-    $ OnKeyEvent (Char 'a')
-        ( OnTargetReached s
-            (\cl -> SetTarget s (nextCell L cl) (Pure ()))
-        $ Pure () )
-    $ OnKeyEvent (Char 'd')
-        ( OnTargetReached s
-            (\cl -> SetTarget s (nextCell R cl) (Pure ()))
-        $ Pure () )
-    $ Pure ())
+    OnKeyEvent (Char 'w')
+      ( OnTargetReached s
+        (\cl -> SetTarget s (nextCell U cl) (Pure ())) $
+        Pure ()
+      ) $
+    OnKeyEvent (Char 's')
+      ( OnTargetReached s
+        (\cl -> SetTarget s (nextCell D cl) (Pure ())) $
+        Pure ()
+      ) $
+    OnKeyEvent (Char 'a')
+      ( OnTargetReached s
+        (\cl -> SetTarget s (nextCell L cl) (Pure ())) $
+        Pure ()
+      ) $
+    OnKeyEvent (Char 'd')
+      ( OnTargetReached s
+        (\cl -> SetTarget s (nextCell R cl) (Pure ())) $
+        Pure ()
+      ) $
+    Pure ()
+  )
-- 
cgit v1.2.3-70-g09d2