diff options
Diffstat (limited to 'Demos/Pong/Pong.hs')
-rw-r--r-- | Demos/Pong/Pong.hs | 16 |
1 files changed, 8 insertions, 8 deletions
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 | |||
7 | ) | 7 | ) |
8 | where | 8 | where |
9 | 9 | ||
10 | import Data.Monoid (mconcat) | 10 | import Data.Monoid (mconcat) |
11 | import GHC.Float (double2Float) | 11 | import GHC.Float (double2Float) |
12 | import Spear.Math.AABB | 12 | import Spear.Math.AABB |
13 | import Spear.Math.Spatial2 | 13 | import Spear.Math.Spatial2 |
14 | import Spear.Math.Vector | 14 | import Spear.Math.Vector |
15 | import Spear.Step | 15 | import Spear.Step |
16 | 16 | ||
17 | -- Configuration | 17 | -- Configuration |
18 | 18 | ||
@@ -42,8 +42,8 @@ data GameEvent | |||
42 | -- Game objects | 42 | -- Game objects |
43 | 43 | ||
44 | data GameObject = GameObject | 44 | data GameObject = GameObject |
45 | { aabb :: AABB2, | 45 | { aabb :: AABB2, |
46 | obj :: Obj2, | 46 | obj :: Obj2, |
47 | gostep :: Step [GameObject] [GameEvent] GameObject GameObject | 47 | gostep :: Step [GameObject] [GameEvent] GameObject GameObject |
48 | } | 48 | } |
49 | 49 | ||