From b2b0e12c212a40ef2469f77043573b5569ff9e6d Mon Sep 17 00:00:00 2001
From: 3gg <3gg@shellblade.net>
Date: Fri, 10 Mar 2023 09:30:47 -0800
Subject: Minor refactoring and formatting.
---
Demos/Pong/Pong.hs | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
(limited to 'Demos/Pong/Pong.hs')
diff --git a/Demos/Pong/Pong.hs b/Demos/Pong/Pong.hs
index b048bbc..fd7fbeb 100644
--- a/Demos/Pong/Pong.hs
+++ b/Demos/Pong/Pong.hs
@@ -7,12 +7,12 @@ module Pong
)
where
-import Data.Monoid (mconcat)
-import GHC.Float (double2Float)
-import Spear.Math.AABB
-import Spear.Math.Spatial2
-import Spear.Math.Vector
-import Spear.Step
+import Data.Monoid (mconcat)
+import GHC.Float (double2Float)
+import Spear.Math.AABB
+import Spear.Math.Spatial2
+import Spear.Math.Vector
+import Spear.Step
-- Configuration
@@ -42,8 +42,8 @@ data GameEvent
-- Game objects
data GameObject = GameObject
- { aabb :: AABB2,
- obj :: Obj2,
+ { aabb :: AABB2,
+ obj :: Obj2,
gostep :: Step [GameObject] [GameEvent] GameObject GameObject
}
--
cgit v1.2.3