summaryrefslogtreecommitdiff
path: root/src/Game/Internal/Types.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Game/Internal/Types.hs')
-rw-r--r--src/Game/Internal/Types.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Game/Internal/Types.hs b/src/Game/Internal/Types.hs
index 61173db..0a713d7 100644
--- a/src/Game/Internal/Types.hs
+++ b/src/Game/Internal/Types.hs
@@ -83,7 +83,7 @@ mkModel camera objects program wprop =
-- | camera
data Camera = Camera
{ -- | position in world space
- camPos :: V3 Float,
+ camPos :: V4 Float,
-- | pitch in radians, up positive
camPitch :: Float,
-- | yaw in radians, right positive
@@ -107,7 +107,7 @@ data Camera = Camera
-- | smart constructor for Camera
mkCamera ::
- V3 Float ->
+ V4 Float ->
Float ->
Float ->
V3 Float ->